;;;; Generated on 5/21/2019 at 13:37:09 (UTC+1).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU
  %%DGBEQUB %DGBEQUB %%DGBRFS %DGBRFS %%DGBRFSX %DGBRFSX %%DGBSV %DGBSV
  %%DGBSVX %DGBSVX %%DGBSVXX %DGBSVXX %%DGBTF2 %DGBTF2 %%DGBTRF %DGBTRF
  %%DGBTRS %DGBTRS %%DGEBAK %DGEBAK %%DGEBAL %DGEBAL %%DGEBD2 %DGEBD2 %%DGEBRD
  %DGEBRD %%DGECON %DGECON %%DGEEQU %DGEEQU %%DGEEQUB %DGEEQUB %%DGEES %DGEES
  %%DGEESX %DGEESX %%DGEEV %DGEEV %%DGEEVX %DGEEVX %%DGEHD2 %DGEHD2 %%DGEHRD
  %DGEHRD %%DGEJSV %DGEJSV %%DGELQ %DGELQ %%DGELQ2 %DGELQ2 %%DGELQF %DGELQF
  %%DGELQT %DGELQT %%DGELQT3 %DGELQT3 %%DGELS %DGELS %%DGELSD %DGELSD %%DGELSS
  %DGELSS %%DGELSY %DGELSY %%DGEMLQ %DGEMLQ %%DGEMLQT %DGEMLQT %%DGEMQR %DGEMQR
  %%DGEMQRT %DGEMQRT %%DGEQL2 %DGEQL2 %%DGEQLF %DGEQLF %%DGEQP3 %DGEQP3 %%DGEQR
  %DGEQR %%DGEQR2 %DGEQR2 %%DGEQR2P %DGEQR2P %%DGEQRF %DGEQRF %%DGEQRFP
  %DGEQRFP %%DGEQRT %DGEQRT %%DGEQRT2 %DGEQRT2 %%DGEQRT3 %DGEQRT3 %%DGERFS
  %DGERFS %%DGERFSX %DGERFSX %%DGERQ2 %DGERQ2 %%DGERQF %DGERQF %%DGESC2 %DGESC2
  %%DGESDD %DGESDD %%DGESV %DGESV %%DGESVD %DGESVD %%DGESVDQ %DGESVDQ %%DGESVDX
  %DGESVDX %%DGESVJ %DGESVJ %%DGESVX %DGESVX %%DGESVXX %DGESVXX %%DGETC2
  %DGETC2 %%DGETF2 %DGETF2 %%DGETRF %DGETRF %%DGETRF2 %DGETRF2 %%DGETRI %DGETRI
  %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES
  %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3
  %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE
  %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3
  %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS
  %%DGTSV %DGTSV %%DGTSVX %DGTSVX %%DGTTRF %DGTTRF %%DGTTRS %DGTTRS %%DGTTS2
  %DGTTS2 %%DHGEQZ %DHGEQZ %%DHSEIN %DHSEIN %%DHSEQR %DHSEQR %%DISNAN %DISNAN
  %%DLA_GBAMV %DLA_GBAMV %%DLA_GBRCOND %DLA_GBRCOND %%DLA_GBRFSX_EXTENDED
  %DLA_GBRFSX_EXTENDED %%DLA_GBRPVGRW %DLA_GBRPVGRW %%DLA_GEAMV %DLA_GEAMV
  %%DLA_GERCOND %DLA_GERCOND %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
  %%DLA_GERPVGRW %DLA_GERPVGRW %%DLA_LIN_BERR %DLA_LIN_BERR %%DLA_PORCOND
  %DLA_PORCOND %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED %%DLA_PORPVGRW
  %DLA_PORPVGRW %%DLA_SYAMV %DLA_SYAMV %%DLA_SYRCOND %DLA_SYRCOND
  %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED %%DLA_SYRPVGRW %DLA_SYRPVGRW
  %%DLA_WWADDW %DLA_WWADDW %%DLABAD %DLABAD %%DLABRD %DLABRD %%DLACN2 %DLACN2
  %%DLACON %DLACON %%DLACPY %DLACPY %%DLADIV %DLADIV %%DLAE2 %DLAE2 %%DLAEBZ
  %DLAEBZ %%DLAED0 %DLAED0 %%DLAED1 %DLAED1 %%DLAED2 %DLAED2 %%DLAED3 %DLAED3
  %%DLAED4 %DLAED4 %%DLAED5 %DLAED5 %%DLAED6 %DLAED6 %%DLAED7 %DLAED7 %%DLAED8
  %DLAED8 %%DLAED9 %DLAED9 %%DLAEDA %DLAEDA %%DLAEIN %DLAEIN %%DLAEV2 %DLAEV2
  %%DLAEXC %DLAEXC %%DLAG2 %DLAG2 %%DLAG2S %DLAG2S %%DLAGS2 %DLAGS2 %%DLAGTF
  %DLAGTF %%DLAGTM %DLAGTM %%DLAGTS %DLAGTS %%DLAGV2 %DLAGV2 %%DLAHQR %DLAHQR
  %%DLAHR2 %DLAHR2 %%DLAIC1 %DLAIC1 %%DLAISNAN %DLAISNAN %%DLALN2 %DLALN2
  %%DLALS0 %DLALS0 %%DLALSA %DLALSA %%DLALSD %DLALSD %%DLAMRG %DLAMRG
  %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB
  %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF
  %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB
  %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAPLL %DLAPLL %%DLAPMR
  %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3 %%DLAQGB %DLAQGB
  %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0 %DLAQR0 %%DLAQR1
  %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4 %%DLAQR5 %DLAQR5
  %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR %DLAQTR %%DLAR1V
  %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB %%DLARFG %DLARFG
  %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX %%DLARFY %DLARFY
  %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB %DLARRB %%DLARRC
  %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF %%DLARRJ %DLARRJ
  %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV %%DLARSCL2 %DLARSCL2
  %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS %%DLARTV %DLARTV
  %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT %DLARZT %%DLAS2
  %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0 %%DLASD1 %DLASD1
  %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5 %DLASD5 %%DLASD6
  %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA %%DLASDQ %DLASDQ
  %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2 %DLASQ2 %%DLASQ3
  %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 %%DLASR %DLASR
  %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ %DLASWLQ))

(CFFI:DEFCFUN ("dgbbrd_" %%DGBBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (VECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (NCC :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (PT :POINTER)
  (LDPT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBBRD
                   (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBBRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5886 ':INT32) (N-REF5887 ':INT32)
                              (NCC-REF5888 ':INT32) (KL-REF5889 ':INT32)
                              (KU-REF5890 ':INT32) (LDAB-REF5892 ':INT32)
                              (LDQ-REF5896 ':INT32) (LDPT-REF5898 ':INT32)
                              (LDC-REF5900 ':INT32) (INFO-REF5902 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5886 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5887 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF5888 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5889 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5890 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5892 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF5896 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF5898 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF5900 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5902 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5891 AB) (D-REF5893 D)
                                            (E-REF5894 E) (Q-REF5895 Q)
                                            (PT-REF5897 PT) (C-REF5899 C)
                                            (WORK-REF5901 WORK))
      (%%DGBBRD VECT M-REF5886 N-REF5887 NCC-REF5888 KL-REF5889 KU-REF5890
                AB-REF5891 LDAB-REF5892 D-REF5893 E-REF5894 Q-REF5895
                LDQ-REF5896 PT-REF5897 LDPT-REF5898 C-REF5899 LDC-REF5900
                WORK-REF5901 INFO-REF5902))))

(CFFI:DEFCFUN ("dgbcon_" %%DGBCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBCON
                   (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5904 ':INT32) (KL-REF5905 ':INT32)
                              (KU-REF5906 ':INT32) (LDAB-REF5908 ':INT32)
                              (ANORM-REF5910 ':DOUBLE) (RCOND-REF5911 ':DOUBLE)
                              (INFO-REF5914 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5904 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5905 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5906 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5908 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF5910 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5911 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5914 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5907 AB) (IPIV-REF5909 IPIV)
                                            (WORK-REF5912 WORK)
                                            (IWORK-REF5913 IWORK))
      (%%DGBCON NORM N-REF5904 KL-REF5905 KU-REF5906 AB-REF5907 LDAB-REF5908
                IPIV-REF5909 ANORM-REF5910 RCOND-REF5911 WORK-REF5912
                IWORK-REF5913 INFO-REF5914))))

(CFFI:DEFCFUN ("dgbequ_" %%DGBEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBEQU (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5915 ':INT32) (N-REF5916 ':INT32)
                              (KL-REF5917 ':INT32) (KU-REF5918 ':INT32)
                              (LDAB-REF5920 ':INT32) (ROWCND-REF5923 ':DOUBLE)
                              (COLCND-REF5924 ':DOUBLE) (AMAX-REF5925 ':DOUBLE)
                              (INFO-REF5926 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5915 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5916 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5917 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5918 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5920 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5923 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5924 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5925 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5926 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5919 AB) (R-REF5921 R)
                                            (C-REF5922 C))
      (%%DGBEQU M-REF5915 N-REF5916 KL-REF5917 KU-REF5918 AB-REF5919
                LDAB-REF5920 R-REF5921 C-REF5922 ROWCND-REF5923 COLCND-REF5924
                AMAX-REF5925 INFO-REF5926))))

(CFFI:DEFCFUN ("dgbequb_" %%DGBEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBEQUB (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF5927 ':INT32) (N-REF5928 ':INT32)
                              (KL-REF5929 ':INT32) (KU-REF5930 ':INT32)
                              (LDAB-REF5932 ':INT32) (ROWCND-REF5935 ':DOUBLE)
                              (COLCND-REF5936 ':DOUBLE) (AMAX-REF5937 ':DOUBLE)
                              (INFO-REF5938 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF5927 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5928 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5929 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5930 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5932 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF5935 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF5936 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF5937 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5938 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5931 AB) (R-REF5933 R)
                                            (C-REF5934 C))
      (%%DGBEQUB M-REF5927 N-REF5928 KL-REF5929 KU-REF5930 AB-REF5931
                 LDAB-REF5932 R-REF5933 C-REF5934 ROWCND-REF5935 COLCND-REF5936
                 AMAX-REF5937 INFO-REF5938))))

(CFFI:DEFCFUN ("dgbrfs_" %%DGBRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBRFS
                   (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5940 ':INT32) (KL-REF5941 ':INT32)
                              (KU-REF5942 ':INT32) (NRHS-REF5943 ':INT32)
                              (LDAB-REF5945 ':INT32) (LDAFB-REF5947 ':INT32)
                              (LDB-REF5950 ':INT32) (LDX-REF5952 ':INT32)
                              (INFO-REF5957 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5940 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5941 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5942 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5943 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5945 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5947 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5950 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5952 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5957 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5944 AB) (AFB-REF5946 AFB)
                                            (IPIV-REF5948 IPIV) (B-REF5949 B)
                                            (X-REF5951 X) (FERR-REF5953 FERR)
                                            (BERR-REF5954 BERR)
                                            (WORK-REF5955 WORK)
                                            (IWORK-REF5956 IWORK))
      (%%DGBRFS TRANS N-REF5940 KL-REF5941 KU-REF5942 NRHS-REF5943 AB-REF5944
                LDAB-REF5945 AFB-REF5946 LDAFB-REF5947 IPIV-REF5948 B-REF5949
                LDB-REF5950 X-REF5951 LDX-REF5952 FERR-REF5953 BERR-REF5954
                WORK-REF5955 IWORK-REF5956 INFO-REF5957))))

(CFFI:DEFCFUN ("dgbrfsx_" %%DGBRFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBRFSX
                   (TRANS EQUED N KL KU NRHS AB LDAB AFB LDAFB IPIV R C B LDB X
                    LDX RCOND BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5960 ':INT32) (KL-REF5961 ':INT32)
                              (KU-REF5962 ':INT32) (NRHS-REF5963 ':INT32)
                              (LDAB-REF5965 ':INT32) (LDAFB-REF5967 ':INT32)
                              (LDB-REF5972 ':INT32) (LDX-REF5974 ':INT32)
                              (RCOND-REF5975 ':DOUBLE)
                              (N_ERR_BNDS-REF5977 ':INT32)
                              (NPARAMS-REF5980 ':INT32) (INFO-REF5984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5960 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5961 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5962 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5963 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5965 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF5967 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5972 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF5974 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF5975 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF5977 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF5980 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5964 AB) (AFB-REF5966 AFB)
                                            (IPIV-REF5968 IPIV) (R-REF5969 R)
                                            (C-REF5970 C) (B-REF5971 B)
                                            (X-REF5973 X) (BERR-REF5976 BERR)
                                            (ERR_BNDS_NORM-REF5978
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF5979
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF5981 PARAMS)
                                            (WORK-REF5982 WORK)
                                            (IWORK-REF5983 IWORK))
      (%%DGBRFSX TRANS EQUED N-REF5960 KL-REF5961 KU-REF5962 NRHS-REF5963
                 AB-REF5964 LDAB-REF5965 AFB-REF5966 LDAFB-REF5967 IPIV-REF5968
                 R-REF5969 C-REF5970 B-REF5971 LDB-REF5972 X-REF5973
                 LDX-REF5974 RCOND-REF5975 BERR-REF5976 N_ERR_BNDS-REF5977
                 ERR_BNDS_NORM-REF5978 ERR_BNDS_COMP-REF5979 NPARAMS-REF5980
                 PARAMS-REF5981 WORK-REF5982 IWORK-REF5983 INFO-REF5984))))

(CFFI:DEFCFUN ("dgbsv_" %%DGBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5985 ':INT32) (KL-REF5986 ':INT32)
                              (KU-REF5987 ':INT32) (NRHS-REF5988 ':INT32)
                              (LDAB-REF5990 ':INT32) (LDB-REF5993 ':INT32)
                              (INFO-REF5994 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5985 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5986 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5987 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF5988 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF5990 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF5993 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF5994 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF5989 AB) (IPIV-REF5991 IPIV)
                                            (B-REF5992 B))
      (%%DGBSV N-REF5985 KL-REF5986 KU-REF5987 NRHS-REF5988 AB-REF5989
               LDAB-REF5990 IPIV-REF5991 B-REF5992 LDB-REF5993 INFO-REF5994))))

(CFFI:DEFCFUN ("dgbsvx_" %%DGBSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBSVX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF5997 ':INT32) (KL-REF5998 ':INT32)
                              (KU-REF5999 ':INT32) (NRHS-REF6000 ':INT32)
                              (LDAB-REF6002 ':INT32) (LDAFB-REF6004 ':INT32)
                              (LDB-REF6010 ':INT32) (LDX-REF6012 ':INT32)
                              (RCOND-REF6013 ':DOUBLE) (INFO-REF6018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF5997 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF5998 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF5999 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6000 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6002 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF6004 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6010 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6012 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6013 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6018 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6001 AB) (AFB-REF6003 AFB)
                                            (IPIV-REF6005 IPIV) (R-REF6007 R)
                                            (C-REF6008 C) (B-REF6009 B)
                                            (X-REF6011 X) (FERR-REF6014 FERR)
                                            (BERR-REF6015 BERR)
                                            (WORK-REF6016 WORK)
                                            (IWORK-REF6017 IWORK))
      (%%DGBSVX FACT TRANS N-REF5997 KL-REF5998 KU-REF5999 NRHS-REF6000
                AB-REF6001 LDAB-REF6002 AFB-REF6003 LDAFB-REF6004 IPIV-REF6005
                EQUED R-REF6007 C-REF6008 B-REF6009 LDB-REF6010 X-REF6011
                LDX-REF6012 RCOND-REF6013 FERR-REF6014 BERR-REF6015
                WORK-REF6016 IWORK-REF6017 INFO-REF6018))))

(CFFI:DEFCFUN ("dgbsvxx_" %%DGBSVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBSVXX
                   (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B
                    LDB X LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM
                    ERR_BNDS_COMP NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBSVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6021 ':INT32) (KL-REF6022 ':INT32)
                              (KU-REF6023 ':INT32) (NRHS-REF6024 ':INT32)
                              (LDAB-REF6026 ':INT32) (LDAFB-REF6028 ':INT32)
                              (LDB-REF6034 ':INT32) (LDX-REF6036 ':INT32)
                              (RCOND-REF6037 ':DOUBLE)
                              (RPVGRW-REF6038 ':DOUBLE)
                              (N_ERR_BNDS-REF6040 ':INT32)
                              (NPARAMS-REF6043 ':INT32) (INFO-REF6047 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6021 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6022 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6023 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6024 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6026 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF6028 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6034 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6036 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6037 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6038 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6040 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6043 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6047 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6025 AB) (AFB-REF6027 AFB)
                                            (IPIV-REF6029 IPIV) (R-REF6031 R)
                                            (C-REF6032 C) (B-REF6033 B)
                                            (X-REF6035 X) (BERR-REF6039 BERR)
                                            (ERR_BNDS_NORM-REF6041
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6042
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6044 PARAMS)
                                            (WORK-REF6045 WORK)
                                            (IWORK-REF6046 IWORK))
      (%%DGBSVXX FACT TRANS N-REF6021 KL-REF6022 KU-REF6023 NRHS-REF6024
                 AB-REF6025 LDAB-REF6026 AFB-REF6027 LDAFB-REF6028 IPIV-REF6029
                 EQUED R-REF6031 C-REF6032 B-REF6033 LDB-REF6034 X-REF6035
                 LDX-REF6036 RCOND-REF6037 RPVGRW-REF6038 BERR-REF6039
                 N_ERR_BNDS-REF6040 ERR_BNDS_NORM-REF6041 ERR_BNDS_COMP-REF6042
                 NPARAMS-REF6043 PARAMS-REF6044 WORK-REF6045 IWORK-REF6046
                 INFO-REF6047))))

(CFFI:DEFCFUN ("dgbtf2_" %%DGBTF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6048 ':INT32) (N-REF6049 ':INT32)
                              (KL-REF6050 ':INT32) (KU-REF6051 ':INT32)
                              (LDAB-REF6053 ':INT32) (INFO-REF6055 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6048 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6049 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6050 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6051 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6053 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6055 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6052 AB) (IPIV-REF6054 IPIV))
      (%%DGBTF2 M-REF6048 N-REF6049 KL-REF6050 KU-REF6051 AB-REF6052
                LDAB-REF6053 IPIV-REF6054 INFO-REF6055))))

(CFFI:DEFCFUN ("dgbtrf_" %%DGBTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6056 ':INT32) (N-REF6057 ':INT32)
                              (KL-REF6058 ':INT32) (KU-REF6059 ':INT32)
                              (LDAB-REF6061 ':INT32) (INFO-REF6063 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6056 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6057 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6058 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6059 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6061 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6063 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6060 AB) (IPIV-REF6062 IPIV))
      (%%DGBTRF M-REF6056 N-REF6057 KL-REF6058 KU-REF6059 AB-REF6060
                LDAB-REF6061 IPIV-REF6062 INFO-REF6063))))

(CFFI:DEFCFUN ("dgbtrs_" %%DGBTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6065 ':INT32) (KL-REF6066 ':INT32)
                              (KU-REF6067 ':INT32) (NRHS-REF6068 ':INT32)
                              (LDAB-REF6070 ':INT32) (LDB-REF6073 ':INT32)
                              (INFO-REF6074 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6065 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF6066 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF6067 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6068 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF6070 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6073 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6074 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF6069 AB) (IPIV-REF6071 IPIV)
                                            (B-REF6072 B))
      (%%DGBTRS TRANS N-REF6065 KL-REF6066 KU-REF6067 NRHS-REF6068 AB-REF6069
                LDAB-REF6070 IPIV-REF6071 B-REF6072 LDB-REF6073 INFO-REF6074))))

(CFFI:DEFCFUN ("dgebak_" %%DGEBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBAK (JOB SIDE N ILO IHI SCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6077 ':INT32) (ILO-REF6078 ':INT32)
                              (IHI-REF6079 ':INT32) (M-REF6081 ':INT32)
                              (LDV-REF6083 ':INT32) (INFO-REF6084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6077 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6078 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6079 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6081 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6083 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6084 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SCALE-REF6080 SCALE) (V-REF6082 V))
      (%%DGEBAK JOB SIDE N-REF6077 ILO-REF6078 IHI-REF6079 SCALE-REF6080
                M-REF6081 V-REF6082 LDV-REF6083 INFO-REF6084))))

(CFFI:DEFCFUN ("dgebal_" %%DGEBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBAL (JOB N A LDA ILO IHI SCALE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6086 ':INT32) (LDA-REF6088 ':INT32)
                              (ILO-REF6089 ':INT32) (IHI-REF6090 ':INT32)
                              (INFO-REF6092 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6086 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6088 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6089 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6090 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6092 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6087 A) (SCALE-REF6091 SCALE))
      (%%DGEBAL JOB N-REF6086 A-REF6087 LDA-REF6088 ILO-REF6089 IHI-REF6090
                SCALE-REF6091 INFO-REF6092))))

(CFFI:DEFCFUN ("dgebd2_" %%DGEBD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6093 ':INT32) (N-REF6094 ':INT32)
                              (LDA-REF6096 ':INT32) (INFO-REF6102 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6093 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6094 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6096 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6102 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6095 A) (D-REF6097 D)
                                            (E-REF6098 E) (TAUQ-REF6099 TAUQ)
                                            (TAUP-REF6100 TAUP)
                                            (WORK-REF6101 WORK))
      (%%DGEBD2 M-REF6093 N-REF6094 A-REF6095 LDA-REF6096 D-REF6097 E-REF6098
                TAUQ-REF6099 TAUP-REF6100 WORK-REF6101 INFO-REF6102))))

(CFFI:DEFCFUN ("dgebrd_" %%DGEBRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6103 ':INT32) (N-REF6104 ':INT32)
                              (LDA-REF6106 ':INT32) (LWORK-REF6112 ':INT32)
                              (INFO-REF6113 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6103 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6104 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6106 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6112 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6113 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6105 A) (D-REF6107 D)
                                            (E-REF6108 E) (TAUQ-REF6109 TAUQ)
                                            (TAUP-REF6110 TAUP)
                                            (WORK-REF6111 WORK))
      (%%DGEBRD M-REF6103 N-REF6104 A-REF6105 LDA-REF6106 D-REF6107 E-REF6108
                TAUQ-REF6109 TAUP-REF6110 WORK-REF6111 LWORK-REF6112
                INFO-REF6113))))

(CFFI:DEFCFUN ("dgecon_" %%DGECON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGECON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6115 ':INT32) (LDA-REF6117 ':INT32)
                              (ANORM-REF6118 ':DOUBLE) (RCOND-REF6119 ':DOUBLE)
                              (INFO-REF6122 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6117 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF6118 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6119 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6122 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6116 A) (WORK-REF6120 WORK)
                                            (IWORK-REF6121 IWORK))
      (%%DGECON NORM N-REF6115 A-REF6116 LDA-REF6117 ANORM-REF6118
                RCOND-REF6119 WORK-REF6120 IWORK-REF6121 INFO-REF6122))))

(CFFI:DEFCFUN ("dgeequ_" %%DGEEQU :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEQU (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEQU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6123 ':INT32) (N-REF6124 ':INT32)
                              (LDA-REF6126 ':INT32) (ROWCND-REF6129 ':DOUBLE)
                              (COLCND-REF6130 ':DOUBLE) (AMAX-REF6131 ':DOUBLE)
                              (INFO-REF6132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6123 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6124 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6126 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6129 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6130 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6131 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6132 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6125 A) (R-REF6127 R)
                                            (C-REF6128 C))
      (%%DGEEQU M-REF6123 N-REF6124 A-REF6125 LDA-REF6126 R-REF6127 C-REF6128
                ROWCND-REF6129 COLCND-REF6130 AMAX-REF6131 INFO-REF6132))))

(CFFI:DEFCFUN ("dgeequb_" %%DGEEQUB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEQUB (M N A LDA R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEQUB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6133 ':INT32) (N-REF6134 ':INT32)
                              (LDA-REF6136 ':INT32) (ROWCND-REF6139 ':DOUBLE)
                              (COLCND-REF6140 ':DOUBLE) (AMAX-REF6141 ':DOUBLE)
                              (INFO-REF6142 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6133 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6136 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF6139 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF6140 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF6141 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6142 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6135 A) (R-REF6137 R)
                                            (C-REF6138 C))
      (%%DGEEQUB M-REF6133 N-REF6134 A-REF6135 LDA-REF6136 R-REF6137 C-REF6138
                 ROWCND-REF6139 COLCND-REF6140 AMAX-REF6141 INFO-REF6142))))

(CFFI:DEFCFUN ("dgees_" %%DGEES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEES
                   (JOBVS SORT SELECT N A LDA SDIM WR WI VS LDVS WORK LWORK
                    BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6145 ':INT32) (N-REF6146 ':INT32)
                              (LDA-REF6148 ':INT32) (SDIM-REF6149 ':INT32)
                              (LDVS-REF6153 ':INT32) (LWORK-REF6155 ':INT32)
                              (INFO-REF6157 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6145 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6146 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6148 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6149 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6153 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6155 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6157 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6147 A) (WR-REF6150 WR)
                                            (WI-REF6151 WI) (VS-REF6152 VS)
                                            (WORK-REF6154 WORK)
                                            (BWORK-REF6156 BWORK))
      (%%DGEES JOBVS SORT SELECT-REF6145 N-REF6146 A-REF6147 LDA-REF6148
               SDIM-REF6149 WR-REF6150 WI-REF6151 VS-REF6152 LDVS-REF6153
               WORK-REF6154 LWORK-REF6155 BWORK-REF6156 INFO-REF6157))))

(CFFI:DEFCFUN ("dgeesx_" %%DGEESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVS :STRING)
  (SORT :STRING)
  (SELECT :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SDIM :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VS :POINTER)
  (LDVS :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEESX
                   (JOBVS SORT SELECT SENSE N A LDA SDIM WR WI VS LDVS RCONDE
                    RCONDV WORK LWORK IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF6160 ':INT32) (N-REF6162 ':INT32)
                              (LDA-REF6164 ':INT32) (SDIM-REF6165 ':INT32)
                              (LDVS-REF6169 ':INT32) (RCONDE-REF6170 ':DOUBLE)
                              (RCONDV-REF6171 ':DOUBLE) (LWORK-REF6173 ':INT32)
                              (LIWORK-REF6175 ':INT32) (INFO-REF6177 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF6160 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6162 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6164 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6165 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF6169 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF6170 :DOUBLE) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF6171 :DOUBLE) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6173 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6175 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6177 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6163 A) (WR-REF6166 WR)
                                            (WI-REF6167 WI) (VS-REF6168 VS)
                                            (WORK-REF6172 WORK)
                                            (IWORK-REF6174 IWORK)
                                            (BWORK-REF6176 BWORK))
      (%%DGEESX JOBVS SORT SELECT-REF6160 SENSE N-REF6162 A-REF6163 LDA-REF6164
                SDIM-REF6165 WR-REF6166 WI-REF6167 VS-REF6168 LDVS-REF6169
                RCONDE-REF6170 RCONDV-REF6171 WORK-REF6172 LWORK-REF6173
                IWORK-REF6174 LIWORK-REF6175 BWORK-REF6176 INFO-REF6177))))

(CFFI:DEFCFUN ("dgeev_" %%DGEEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEV
                   (JOBVL JOBVR N A LDA WR WI VL LDVL VR LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6180 ':INT32) (LDA-REF6182 ':INT32)
                              (LDVL-REF6186 ':INT32) (LDVR-REF6188 ':INT32)
                              (LWORK-REF6190 ':INT32) (INFO-REF6191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6180 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6182 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6186 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6188 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6190 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6181 A) (WR-REF6183 WR)
                                            (WI-REF6184 WI) (VL-REF6185 VL)
                                            (VR-REF6187 VR) (WORK-REF6189 WORK))
      (%%DGEEV JOBVL JOBVR N-REF6180 A-REF6181 LDA-REF6182 WR-REF6183
               WI-REF6184 VL-REF6185 LDVL-REF6186 VR-REF6187 LDVR-REF6188
               WORK-REF6189 LWORK-REF6190 INFO-REF6191))))

(CFFI:DEFCFUN ("dgeevx_" %%DGEEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (SCALE :POINTER)
  (ABNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA WR WI VL LDVL VR LDVR ILO
                    IHI SCALE ABNRM RCONDE RCONDV WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6196 ':INT32) (LDA-REF6198 ':INT32)
                              (LDVL-REF6202 ':INT32) (LDVR-REF6204 ':INT32)
                              (ILO-REF6205 ':INT32) (IHI-REF6206 ':INT32)
                              (ABNRM-REF6208 ':DOUBLE) (LWORK-REF6212 ':INT32)
                              (INFO-REF6214 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6196 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6198 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6202 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6204 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6205 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6206 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6208 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6212 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6214 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6197 A) (WR-REF6199 WR)
                                            (WI-REF6200 WI) (VL-REF6201 VL)
                                            (VR-REF6203 VR)
                                            (SCALE-REF6207 SCALE)
                                            (RCONDE-REF6209 RCONDE)
                                            (RCONDV-REF6210 RCONDV)
                                            (WORK-REF6211 WORK)
                                            (IWORK-REF6213 IWORK))
      (%%DGEEVX BALANC JOBVL JOBVR SENSE N-REF6196 A-REF6197 LDA-REF6198
                WR-REF6199 WI-REF6200 VL-REF6201 LDVL-REF6202 VR-REF6203
                LDVR-REF6204 ILO-REF6205 IHI-REF6206 SCALE-REF6207
                ABNRM-REF6208 RCONDE-REF6209 RCONDV-REF6210 WORK-REF6211
                LWORK-REF6212 IWORK-REF6213 INFO-REF6214))))

(CFFI:DEFCFUN ("dgehd2_" %%DGEHD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6215 ':INT32) (ILO-REF6216 ':INT32)
                              (IHI-REF6217 ':INT32) (LDA-REF6219 ':INT32)
                              (INFO-REF6222 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6216 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6217 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6219 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6222 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6218 A) (TAU-REF6220 TAU)
                                            (WORK-REF6221 WORK))
      (%%DGEHD2 N-REF6215 ILO-REF6216 IHI-REF6217 A-REF6218 LDA-REF6219
                TAU-REF6220 WORK-REF6221 INFO-REF6222))))

(CFFI:DEFCFUN ("dgehrd_" %%DGEHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEHRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6223 ':INT32) (ILO-REF6224 ':INT32)
                              (IHI-REF6225 ':INT32) (LDA-REF6227 ':INT32)
                              (LWORK-REF6230 ':INT32) (INFO-REF6231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6223 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6224 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6225 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6227 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6230 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6226 A) (TAU-REF6228 TAU)
                                            (WORK-REF6229 WORK))
      (%%DGEHRD N-REF6223 ILO-REF6224 IHI-REF6225 A-REF6226 LDA-REF6227
                TAU-REF6228 WORK-REF6229 LWORK-REF6230 INFO-REF6231))))

(CFFI:DEFCFUN ("dgejsv_" %%DGEJSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBR :STRING)
  (JOBT :STRING)
  (JOBP :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEJSV
                   (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEJSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6238 ':INT32) (N-REF6239 ':INT32)
                              (LDA-REF6241 ':INT32) (LDU-REF6244 ':INT32)
                              (LDV-REF6246 ':INT32) (LWORK-REF6248 ':INT32)
                              (INFO-REF6250 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6238 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6239 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6241 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6244 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6246 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6248 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6250 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6240 A) (SVA-REF6242 SVA)
                                            (U-REF6243 U) (V-REF6245 V)
                                            (WORK-REF6247 WORK)
                                            (IWORK-REF6249 IWORK))
      (%%DGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF6238 N-REF6239 A-REF6240
                LDA-REF6241 SVA-REF6242 U-REF6243 LDU-REF6244 V-REF6245
                LDV-REF6246 WORK-REF6247 LWORK-REF6248 IWORK-REF6249
                INFO-REF6250))))

(CFFI:DEFCFUN ("dgelq_" %%DGELQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6251 ':INT32) (N-REF6252 ':INT32)
                              (LDA-REF6254 ':INT32) (TSIZE-REF6256 ':INT32)
                              (LWORK-REF6258 ':INT32) (INFO-REF6259 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6251 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6252 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6254 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6256 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6258 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6259 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6253 A) (T-REF6255 T)
                                            (WORK-REF6257 WORK))
      (%%DGELQ M-REF6251 N-REF6252 A-REF6253 LDA-REF6254 T-REF6255
               TSIZE-REF6256 WORK-REF6257 LWORK-REF6258 INFO-REF6259))))

(CFFI:DEFCFUN ("dgelq2_" %%DGELQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6260 ':INT32) (N-REF6261 ':INT32)
                              (LDA-REF6263 ':INT32) (INFO-REF6266 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6260 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6263 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6266 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6262 A) (TAU-REF6264 TAU)
                                            (WORK-REF6265 WORK))
      (%%DGELQ2 M-REF6260 N-REF6261 A-REF6262 LDA-REF6263 TAU-REF6264
                WORK-REF6265 INFO-REF6266))))

(CFFI:DEFCFUN ("dgelqf_" %%DGELQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6267 ':INT32) (N-REF6268 ':INT32)
                              (LDA-REF6270 ':INT32) (LWORK-REF6273 ':INT32)
                              (INFO-REF6274 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6267 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6270 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6273 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6274 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6269 A) (TAU-REF6271 TAU)
                                            (WORK-REF6272 WORK))
      (%%DGELQF M-REF6267 N-REF6268 A-REF6269 LDA-REF6270 TAU-REF6271
                WORK-REF6272 LWORK-REF6273 INFO-REF6274))))

(CFFI:DEFCFUN ("dgelqt_" %%DGELQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6275 ':INT32) (N-REF6276 ':INT32)
                              (MB-REF6277 ':INT32) (LDA-REF6279 ':INT32)
                              (LDT-REF6281 ':INT32) (INFO-REF6283 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6275 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6277 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6279 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6281 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6283 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6278 A) (T-REF6280 T)
                                            (WORK-REF6282 WORK))
      (%%DGELQT M-REF6275 N-REF6276 MB-REF6277 A-REF6278 LDA-REF6279 T-REF6280
                LDT-REF6281 WORK-REF6282 INFO-REF6283))))

(CFFI:DEFCFUN ("dgelqt3_" %%DGELQT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6284 ':INT32) (N-REF6285 ':INT32)
                              (LDA-REF6287 ':INT32) (LDT-REF6289 ':INT32)
                              (INFO-REF6290 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6284 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6285 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6287 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6289 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6290 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6286 A) (T-REF6288 T))
      (%%DGELQT3 M-REF6284 N-REF6285 A-REF6286 LDA-REF6287 T-REF6288
                 LDT-REF6289 INFO-REF6290))))

(CFFI:DEFCFUN ("dgels_" %%DGELS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6292 ':INT32) (N-REF6293 ':INT32)
                              (NRHS-REF6294 ':INT32) (LDA-REF6296 ':INT32)
                              (LDB-REF6298 ':INT32) (LWORK-REF6300 ':INT32)
                              (INFO-REF6301 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6292 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6293 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6294 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6296 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6298 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6300 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6301 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6295 A) (B-REF6297 B)
                                            (WORK-REF6299 WORK))
      (%%DGELS TRANS M-REF6292 N-REF6293 NRHS-REF6294 A-REF6295 LDA-REF6296
               B-REF6297 LDB-REF6298 WORK-REF6299 LWORK-REF6300 INFO-REF6301))))

(CFFI:DEFCFUN ("dgelsd_" %%DGELSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELSD
                   (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6302 ':INT32) (N-REF6303 ':INT32)
                              (NRHS-REF6304 ':INT32) (LDA-REF6306 ':INT32)
                              (LDB-REF6308 ':INT32) (RCOND-REF6310 ':DOUBLE)
                              (RANK-REF6311 ':INT32) (LWORK-REF6313 ':INT32)
                              (INFO-REF6315 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6302 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6303 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6304 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6306 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6308 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6310 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6311 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6313 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6315 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6305 A) (B-REF6307 B)
                                            (S-REF6309 S) (WORK-REF6312 WORK)
                                            (IWORK-REF6314 IWORK))
      (%%DGELSD M-REF6302 N-REF6303 NRHS-REF6304 A-REF6305 LDA-REF6306
                B-REF6307 LDB-REF6308 S-REF6309 RCOND-REF6310 RANK-REF6311
                WORK-REF6312 LWORK-REF6313 IWORK-REF6314 INFO-REF6315))))

(CFFI:DEFCFUN ("dgelss_" %%DGELSS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (S :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELSS (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6316 ':INT32) (N-REF6317 ':INT32)
                              (NRHS-REF6318 ':INT32) (LDA-REF6320 ':INT32)
                              (LDB-REF6322 ':INT32) (RCOND-REF6324 ':DOUBLE)
                              (RANK-REF6325 ':INT32) (LWORK-REF6327 ':INT32)
                              (INFO-REF6328 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6316 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6317 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6318 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6320 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6322 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6324 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6325 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6327 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6328 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6319 A) (B-REF6321 B)
                                            (S-REF6323 S) (WORK-REF6326 WORK))
      (%%DGELSS M-REF6316 N-REF6317 NRHS-REF6318 A-REF6319 LDA-REF6320
                B-REF6321 LDB-REF6322 S-REF6323 RCOND-REF6324 RANK-REF6325
                WORK-REF6326 LWORK-REF6327 INFO-REF6328))))

(CFFI:DEFCFUN ("dgelsy_" %%DGELSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (JPVT :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGELSY
                   (M N NRHS A LDA B LDB JPVT RCOND RANK WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELSY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6329 ':INT32) (N-REF6330 ':INT32)
                              (NRHS-REF6331 ':INT32) (LDA-REF6333 ':INT32)
                              (LDB-REF6335 ':INT32) (RCOND-REF6337 ':DOUBLE)
                              (RANK-REF6338 ':INT32) (LWORK-REF6340 ':INT32)
                              (INFO-REF6341 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6329 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6330 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6331 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6333 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6335 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6337 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF6338 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6340 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6341 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6332 A) (B-REF6334 B)
                                            (JPVT-REF6336 JPVT)
                                            (WORK-REF6339 WORK))
      (%%DGELSY M-REF6329 N-REF6330 NRHS-REF6331 A-REF6332 LDA-REF6333
                B-REF6334 LDB-REF6335 JPVT-REF6336 RCOND-REF6337 RANK-REF6338
                WORK-REF6339 LWORK-REF6340 INFO-REF6341))))

(CFFI:DEFCFUN ("dgemlq_" %%DGEMLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMLQ
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6344 ':INT32) (N-REF6345 ':INT32)
                              (K-REF6346 ':INT32) (LDA-REF6348 ':INT32)
                              (TSIZE-REF6350 ':INT32) (LDC-REF6352 ':INT32)
                              (LWORK-REF6354 ':INT32) (INFO-REF6355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6344 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6345 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6346 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6348 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6350 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6352 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6354 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6355 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6347 A) (T-REF6349 T)
                                            (C-REF6351 C) (WORK-REF6353 WORK))
      (%%DGEMLQ SIDE TRANS M-REF6344 N-REF6345 K-REF6346 A-REF6347 LDA-REF6348
                T-REF6349 TSIZE-REF6350 C-REF6351 LDC-REF6352 WORK-REF6353
                LWORK-REF6354 INFO-REF6355))))

(CFFI:DEFCFUN ("dgemlqt_" %%DGEMLQT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMLQT (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMLQT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6358 ':INT32) (N-REF6359 ':INT32)
                              (K-REF6360 ':INT32) (MB-REF6361 ':INT32)
                              (LDV-REF6363 ':INT32) (LDT-REF6365 ':INT32)
                              (LDC-REF6367 ':INT32) (INFO-REF6369 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6358 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6359 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6360 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF6361 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6363 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6365 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6367 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6369 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6362 V) (T-REF6364 T)
                                            (C-REF6366 C) (WORK-REF6368 WORK))
      (%%DGEMLQT SIDE TRANS M-REF6358 N-REF6359 K-REF6360 MB-REF6361 V-REF6362
                 LDV-REF6363 T-REF6364 LDT-REF6365 C-REF6366 LDC-REF6367
                 WORK-REF6368 INFO-REF6369))))

(CFFI:DEFCFUN ("dgemqr_" %%DGEMQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMQR
                   (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6372 ':INT32) (N-REF6373 ':INT32)
                              (K-REF6374 ':INT32) (LDA-REF6376 ':INT32)
                              (TSIZE-REF6378 ':INT32) (LDC-REF6380 ':INT32)
                              (LWORK-REF6382 ':INT32) (INFO-REF6383 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6372 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6373 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6374 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6376 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6378 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6380 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6382 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6383 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6375 A) (T-REF6377 T)
                                            (C-REF6379 C) (WORK-REF6381 WORK))
      (%%DGEMQR SIDE TRANS M-REF6372 N-REF6373 K-REF6374 A-REF6375 LDA-REF6376
                T-REF6377 TSIZE-REF6378 C-REF6379 LDC-REF6380 WORK-REF6381
                LWORK-REF6382 INFO-REF6383))))

(CFFI:DEFCFUN ("dgemqrt_" %%DGEMQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEMQRT (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMQRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6386 ':INT32) (N-REF6387 ':INT32)
                              (K-REF6388 ':INT32) (NB-REF6389 ':INT32)
                              (LDV-REF6391 ':INT32) (LDT-REF6393 ':INT32)
                              (LDC-REF6395 ':INT32) (INFO-REF6397 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6386 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6387 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6388 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6389 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6391 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6393 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF6395 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6397 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF6390 V) (T-REF6392 T)
                                            (C-REF6394 C) (WORK-REF6396 WORK))
      (%%DGEMQRT SIDE TRANS M-REF6386 N-REF6387 K-REF6388 NB-REF6389 V-REF6390
                 LDV-REF6391 T-REF6392 LDT-REF6393 C-REF6394 LDC-REF6395
                 WORK-REF6396 INFO-REF6397))))

(CFFI:DEFCFUN ("dgeql2_" %%DGEQL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6398 ':INT32) (N-REF6399 ':INT32)
                              (LDA-REF6401 ':INT32) (INFO-REF6404 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6398 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6399 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6401 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6404 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6400 A) (TAU-REF6402 TAU)
                                            (WORK-REF6403 WORK))
      (%%DGEQL2 M-REF6398 N-REF6399 A-REF6400 LDA-REF6401 TAU-REF6402
                WORK-REF6403 INFO-REF6404))))

(CFFI:DEFCFUN ("dgeqlf_" %%DGEQLF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQLF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6405 ':INT32) (N-REF6406 ':INT32)
                              (LDA-REF6408 ':INT32) (LWORK-REF6411 ':INT32)
                              (INFO-REF6412 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6405 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6408 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6411 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6412 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6407 A) (TAU-REF6409 TAU)
                                            (WORK-REF6410 WORK))
      (%%DGEQLF M-REF6405 N-REF6406 A-REF6407 LDA-REF6408 TAU-REF6409
                WORK-REF6410 LWORK-REF6411 INFO-REF6412))))

(CFFI:DEFCFUN ("dgeqp3_" %%DGEQP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQP3 (M N A LDA JPVT TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQP3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6413 ':INT32) (N-REF6414 ':INT32)
                              (LDA-REF6416 ':INT32) (LWORK-REF6420 ':INT32)
                              (INFO-REF6421 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6413 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6414 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6420 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6421 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6415 A) (JPVT-REF6417 JPVT)
                                            (TAU-REF6418 TAU)
                                            (WORK-REF6419 WORK))
      (%%DGEQP3 M-REF6413 N-REF6414 A-REF6415 LDA-REF6416 JPVT-REF6417
                TAU-REF6418 WORK-REF6419 LWORK-REF6420 INFO-REF6421))))

(CFFI:DEFCFUN ("dgeqr_" %%DGEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (TSIZE :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQR (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6422 ':INT32) (N-REF6423 ':INT32)
                              (LDA-REF6425 ':INT32) (TSIZE-REF6427 ':INT32)
                              (LWORK-REF6429 ':INT32) (INFO-REF6430 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6422 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6423 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6425 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF6427 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6429 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6430 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6424 A) (T-REF6426 T)
                                            (WORK-REF6428 WORK))
      (%%DGEQR M-REF6422 N-REF6423 A-REF6424 LDA-REF6425 T-REF6426
               TSIZE-REF6427 WORK-REF6428 LWORK-REF6429 INFO-REF6430))))

(CFFI:DEFCFUN ("dgeqr2_" %%DGEQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQR2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6431 ':INT32) (N-REF6432 ':INT32)
                              (LDA-REF6434 ':INT32) (INFO-REF6437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6431 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6432 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6434 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6437 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6433 A) (TAU-REF6435 TAU)
                                            (WORK-REF6436 WORK))
      (%%DGEQR2 M-REF6431 N-REF6432 A-REF6433 LDA-REF6434 TAU-REF6435
                WORK-REF6436 INFO-REF6437))))

(CFFI:DEFCFUN ("dgeqr2p_" %%DGEQR2P :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQR2P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6438 ':INT32) (N-REF6439 ':INT32)
                              (LDA-REF6441 ':INT32) (INFO-REF6444 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6438 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6441 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6444 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6440 A) (TAU-REF6442 TAU)
                                            (WORK-REF6443 WORK))
      (%%DGEQR2P M-REF6438 N-REF6439 A-REF6440 LDA-REF6441 TAU-REF6442
                 WORK-REF6443 INFO-REF6444))))

(CFFI:DEFCFUN ("dgeqrf_" %%DGEQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6445 ':INT32) (N-REF6446 ':INT32)
                              (LDA-REF6448 ':INT32) (LWORK-REF6451 ':INT32)
                              (INFO-REF6452 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6445 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6446 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6448 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6451 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6452 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6447 A) (TAU-REF6449 TAU)
                                            (WORK-REF6450 WORK))
      (%%DGEQRF M-REF6445 N-REF6446 A-REF6447 LDA-REF6448 TAU-REF6449
                WORK-REF6450 LWORK-REF6451 INFO-REF6452))))

(CFFI:DEFCFUN ("dgeqrfp_" %%DGEQRFP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRFP (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRFP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6453 ':INT32) (N-REF6454 ':INT32)
                              (LDA-REF6456 ':INT32) (LWORK-REF6459 ':INT32)
                              (INFO-REF6460 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6453 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6459 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6460 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6455 A) (TAU-REF6457 TAU)
                                            (WORK-REF6458 WORK))
      (%%DGEQRFP M-REF6453 N-REF6454 A-REF6455 LDA-REF6456 TAU-REF6457
                 WORK-REF6458 LWORK-REF6459 INFO-REF6460))))

(CFFI:DEFCFUN ("dgeqrt_" %%DGEQRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6461 ':INT32) (N-REF6462 ':INT32)
                              (NB-REF6463 ':INT32) (LDA-REF6465 ':INT32)
                              (LDT-REF6467 ':INT32) (INFO-REF6469 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6461 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6462 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF6463 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6465 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6467 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6469 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6464 A) (T-REF6466 T)
                                            (WORK-REF6468 WORK))
      (%%DGEQRT M-REF6461 N-REF6462 NB-REF6463 A-REF6464 LDA-REF6465 T-REF6466
                LDT-REF6467 WORK-REF6468 INFO-REF6469))))

(CFFI:DEFCFUN ("dgeqrt2_" %%DGEQRT2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6470 ':INT32) (N-REF6471 ':INT32)
                              (LDA-REF6473 ':INT32) (LDT-REF6475 ':INT32)
                              (INFO-REF6476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6470 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6471 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6473 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6475 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6476 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6472 A) (T-REF6474 T))
      (%%DGEQRT2 M-REF6470 N-REF6471 A-REF6472 LDA-REF6473 T-REF6474
                 LDT-REF6475 INFO-REF6476))))

(CFFI:DEFCFUN ("dgeqrt3_" %%DGEQRT3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6477 ':INT32) (N-REF6478 ':INT32)
                              (LDA-REF6480 ':INT32) (LDT-REF6482 ':INT32)
                              (INFO-REF6483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6477 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6478 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6480 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF6482 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6479 A) (T-REF6481 T))
      (%%DGEQRT3 M-REF6477 N-REF6478 A-REF6479 LDA-REF6480 T-REF6481
                 LDT-REF6482 INFO-REF6483))))

(CFFI:DEFCFUN ("dgerfs_" %%DGERFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERFS
                   (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6485 ':INT32) (NRHS-REF6486 ':INT32)
                              (LDA-REF6488 ':INT32) (LDAF-REF6490 ':INT32)
                              (LDB-REF6493 ':INT32) (LDX-REF6495 ':INT32)
                              (INFO-REF6500 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6485 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6486 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6488 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6490 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6493 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6495 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6500 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6487 A) (AF-REF6489 AF)
                                            (IPIV-REF6491 IPIV) (B-REF6492 B)
                                            (X-REF6494 X) (FERR-REF6496 FERR)
                                            (BERR-REF6497 BERR)
                                            (WORK-REF6498 WORK)
                                            (IWORK-REF6499 IWORK))
      (%%DGERFS TRANS N-REF6485 NRHS-REF6486 A-REF6487 LDA-REF6488 AF-REF6489
                LDAF-REF6490 IPIV-REF6491 B-REF6492 LDB-REF6493 X-REF6494
                LDX-REF6495 FERR-REF6496 BERR-REF6497 WORK-REF6498
                IWORK-REF6499 INFO-REF6500))))

(CFFI:DEFCFUN ("dgerfsx_" %%DGERFSX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (EQUED :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERFSX
                   (TRANS EQUED N NRHS A LDA AF LDAF IPIV R C B LDB X LDX RCOND
                    BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
                    WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERFSX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6503 ':INT32) (NRHS-REF6504 ':INT32)
                              (LDA-REF6506 ':INT32) (LDAF-REF6508 ':INT32)
                              (LDB-REF6513 ':INT32) (LDX-REF6515 ':INT32)
                              (RCOND-REF6516 ':DOUBLE)
                              (N_ERR_BNDS-REF6518 ':INT32)
                              (NPARAMS-REF6521 ':INT32) (INFO-REF6525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6503 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6504 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6506 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6508 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6513 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6515 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6516 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6518 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6521 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6525 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6505 A) (AF-REF6507 AF)
                                            (IPIV-REF6509 IPIV) (R-REF6510 R)
                                            (C-REF6511 C) (B-REF6512 B)
                                            (X-REF6514 X) (BERR-REF6517 BERR)
                                            (ERR_BNDS_NORM-REF6519
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6520
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6522 PARAMS)
                                            (WORK-REF6523 WORK)
                                            (IWORK-REF6524 IWORK))
      (%%DGERFSX TRANS EQUED N-REF6503 NRHS-REF6504 A-REF6505 LDA-REF6506
                 AF-REF6507 LDAF-REF6508 IPIV-REF6509 R-REF6510 C-REF6511
                 B-REF6512 LDB-REF6513 X-REF6514 LDX-REF6515 RCOND-REF6516
                 BERR-REF6517 N_ERR_BNDS-REF6518 ERR_BNDS_NORM-REF6519
                 ERR_BNDS_COMP-REF6520 NPARAMS-REF6521 PARAMS-REF6522
                 WORK-REF6523 IWORK-REF6524 INFO-REF6525))))

(CFFI:DEFCFUN ("dgerq2_" %%DGERQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6526 ':INT32) (N-REF6527 ':INT32)
                              (LDA-REF6529 ':INT32) (INFO-REF6532 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6526 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6529 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6532 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6528 A) (TAU-REF6530 TAU)
                                            (WORK-REF6531 WORK))
      (%%DGERQ2 M-REF6526 N-REF6527 A-REF6528 LDA-REF6529 TAU-REF6530
                WORK-REF6531 INFO-REF6532))))

(CFFI:DEFCFUN ("dgerqf_" %%DGERQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGERQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6533 ':INT32) (N-REF6534 ':INT32)
                              (LDA-REF6536 ':INT32) (LWORK-REF6539 ':INT32)
                              (INFO-REF6540 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6533 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6539 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6540 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6535 A) (TAU-REF6537 TAU)
                                            (WORK-REF6538 WORK))
      (%%DGERQF M-REF6533 N-REF6534 A-REF6535 LDA-REF6536 TAU-REF6537
                WORK-REF6538 LWORK-REF6539 INFO-REF6540))))

(CFFI:DEFCFUN ("dgesc2_" %%DGESC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (RHS :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (SCALE :POINTER))

(COMMON-LISP:DEFUN %DGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6541 ':INT32) (LDA-REF6543 ':INT32)
                              (SCALE-REF6547 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6541 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6543 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF6547 :DOUBLE) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6542 A) (RHS-REF6544 RHS)
                                            (IPIV-REF6545 IPIV)
                                            (JPIV-REF6546 JPIV))
      (%%DGESC2 N-REF6541 A-REF6542 LDA-REF6543 RHS-REF6544 IPIV-REF6545
                JPIV-REF6546 SCALE-REF6547))))

(CFFI:DEFCFUN ("dgesdd_" %%DGESDD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBZ :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESDD
                   (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESDD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6549 ':INT32) (N-REF6550 ':INT32)
                              (LDA-REF6552 ':INT32) (LDU-REF6555 ':INT32)
                              (LDVT-REF6557 ':INT32) (LWORK-REF6559 ':INT32)
                              (INFO-REF6561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6549 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6552 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6555 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6557 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6559 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6551 A) (S-REF6553 S)
                                            (U-REF6554 U) (VT-REF6556 VT)
                                            (WORK-REF6558 WORK)
                                            (IWORK-REF6560 IWORK))
      (%%DGESDD JOBZ M-REF6549 N-REF6550 A-REF6551 LDA-REF6552 S-REF6553
                U-REF6554 LDU-REF6555 VT-REF6556 LDVT-REF6557 WORK-REF6558
                LWORK-REF6559 IWORK-REF6560 INFO-REF6561))))

(CFFI:DEFCFUN ("dgesv_" %%DGESV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6562 ':INT32) (NRHS-REF6563 ':INT32)
                              (LDA-REF6565 ':INT32) (LDB-REF6568 ':INT32)
                              (INFO-REF6569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6563 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6565 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6568 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6564 A) (IPIV-REF6566 IPIV)
                                            (B-REF6567 B))
      (%%DGESV N-REF6562 NRHS-REF6563 A-REF6564 LDA-REF6565 IPIV-REF6566
               B-REF6567 LDB-REF6568 INFO-REF6569))))

(CFFI:DEFCFUN ("dgesvd_" %%DGESVD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVD
                   (JOBU JOBVT M N A LDA S U LDU VT LDVT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6572 ':INT32) (N-REF6573 ':INT32)
                              (LDA-REF6575 ':INT32) (LDU-REF6578 ':INT32)
                              (LDVT-REF6580 ':INT32) (LWORK-REF6582 ':INT32)
                              (INFO-REF6583 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6572 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6573 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6575 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6578 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6580 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6582 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6583 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6574 A) (S-REF6576 S)
                                            (U-REF6577 U) (VT-REF6579 VT)
                                            (WORK-REF6581 WORK))
      (%%DGESVD JOBU JOBVT M-REF6572 N-REF6573 A-REF6574 LDA-REF6575 S-REF6576
                U-REF6577 LDU-REF6578 VT-REF6579 LDVT-REF6580 WORK-REF6581
                LWORK-REF6582 INFO-REF6583))))

(CFFI:DEFCFUN ("dgesvdq_" %%DGESVDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBP :STRING)
  (JOBR :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NUMRANK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (RWORK :POINTER)
  (LRWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVDQ
                   (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK
                    IWORK LIWORK WORK LWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6589 ':INT32) (N-REF6590 ':INT32)
                              (LDA-REF6592 ':INT32) (LDU-REF6595 ':INT32)
                              (LDV-REF6597 ':INT32) (NUMRANK-REF6598 ':INT32)
                              (LIWORK-REF6600 ':INT32) (LWORK-REF6602 ':INT32)
                              (LRWORK-REF6604 ':INT32) (INFO-REF6605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6589 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6590 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6592 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6595 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6597 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF6598 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6600 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6602 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF6604 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6591 A) (S-REF6593 S)
                                            (U-REF6594 U) (V-REF6596 V)
                                            (IWORK-REF6599 IWORK)
                                            (WORK-REF6601 WORK)
                                            (RWORK-REF6603 RWORK))
      (%%DGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF6589 N-REF6590 A-REF6591
                 LDA-REF6592 S-REF6593 U-REF6594 LDU-REF6595 V-REF6596
                 LDV-REF6597 NUMRANK-REF6598 IWORK-REF6599 LIWORK-REF6600
                 WORK-REF6601 LWORK-REF6602 RWORK-REF6603 LRWORK-REF6604
                 INFO-REF6605))))

(CFFI:DEFCFUN ("dgesvdx_" %%DGESVDX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBVT :STRING)
  (RANGE :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (NS :POINTER)
  (S :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVDX
                   (JOBU JOBVT RANGE M N A LDA VL VU IL IU NS S U LDU VT LDVT
                    WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVDX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6609 ':INT32) (N-REF6610 ':INT32)
                              (LDA-REF6612 ':INT32) (VL-REF6613 ':DOUBLE)
                              (VU-REF6614 ':DOUBLE) (IL-REF6615 ':INT32)
                              (IU-REF6616 ':INT32) (NS-REF6617 ':INT32)
                              (LDU-REF6620 ':INT32) (LDVT-REF6622 ':INT32)
                              (LWORK-REF6624 ':INT32) (INFO-REF6626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6609 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6610 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6612 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF6613 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF6614 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF6615 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF6616 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF6617 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6620 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF6622 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6624 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6626 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6611 A) (S-REF6618 S)
                                            (U-REF6619 U) (VT-REF6621 VT)
                                            (WORK-REF6623 WORK)
                                            (IWORK-REF6625 IWORK))
      (%%DGESVDX JOBU JOBVT RANGE M-REF6609 N-REF6610 A-REF6611 LDA-REF6612
                 VL-REF6613 VU-REF6614 IL-REF6615 IU-REF6616 NS-REF6617
                 S-REF6618 U-REF6619 LDU-REF6620 VT-REF6621 LDVT-REF6622
                 WORK-REF6623 LWORK-REF6624 IWORK-REF6625 INFO-REF6626))))

(CFFI:DEFCFUN ("dgesvj_" %%DGESVJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBA :STRING)
  (JOBU :STRING)
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVJ
                   (JOBA JOBU JOBV M N A LDA SVA MV V LDV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVJ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6630 ':INT32) (N-REF6631 ':INT32)
                              (LDA-REF6633 ':INT32) (MV-REF6635 ':INT32)
                              (LDV-REF6637 ':INT32) (LWORK-REF6639 ':INT32)
                              (INFO-REF6640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6630 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6633 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF6635 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6637 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6639 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6632 A) (SVA-REF6634 SVA)
                                            (V-REF6636 V) (WORK-REF6638 WORK))
      (%%DGESVJ JOBA JOBU JOBV M-REF6630 N-REF6631 A-REF6632 LDA-REF6633
                SVA-REF6634 MV-REF6635 V-REF6636 LDV-REF6637 WORK-REF6638
                LWORK-REF6639 INFO-REF6640))))

(CFFI:DEFCFUN ("dgesvx_" %%DGESVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6643 ':INT32) (NRHS-REF6644 ':INT32)
                              (LDA-REF6646 ':INT32) (LDAF-REF6648 ':INT32)
                              (LDB-REF6654 ':INT32) (LDX-REF6656 ':INT32)
                              (RCOND-REF6657 ':DOUBLE) (INFO-REF6662 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6644 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6646 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6648 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6654 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6656 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6657 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6662 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6645 A) (AF-REF6647 AF)
                                            (IPIV-REF6649 IPIV) (R-REF6651 R)
                                            (C-REF6652 C) (B-REF6653 B)
                                            (X-REF6655 X) (FERR-REF6658 FERR)
                                            (BERR-REF6659 BERR)
                                            (WORK-REF6660 WORK)
                                            (IWORK-REF6661 IWORK))
      (%%DGESVX FACT TRANS N-REF6643 NRHS-REF6644 A-REF6645 LDA-REF6646
                AF-REF6647 LDAF-REF6648 IPIV-REF6649 EQUED R-REF6651 C-REF6652
                B-REF6653 LDB-REF6654 X-REF6655 LDX-REF6656 RCOND-REF6657
                FERR-REF6658 BERR-REF6659 WORK-REF6660 IWORK-REF6661
                INFO-REF6662))))

(CFFI:DEFCFUN ("dgesvxx_" %%DGESVXX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (EQUED :STRING)
  (R :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (RPVGRW :POINTER)
  (BERR :POINTER)
  (N_ERR_BNDS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (NPARAMS :POINTER)
  (PARAMS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGESVXX
                   (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX
                    RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
                    NPARAMS PARAMS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVXX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RPVGRW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        N_ERR_BNDS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        PARAMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6665 ':INT32) (NRHS-REF6666 ':INT32)
                              (LDA-REF6668 ':INT32) (LDAF-REF6670 ':INT32)
                              (LDB-REF6676 ':INT32) (LDX-REF6678 ':INT32)
                              (RCOND-REF6679 ':DOUBLE)
                              (RPVGRW-REF6680 ':DOUBLE)
                              (N_ERR_BNDS-REF6682 ':INT32)
                              (NPARAMS-REF6685 ':INT32) (INFO-REF6689 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6665 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6666 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6668 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF6670 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6676 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF6678 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF6679 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF6680 :DOUBLE) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF6682 :INT32) N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF6685 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6689 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6667 A) (AF-REF6669 AF)
                                            (IPIV-REF6671 IPIV) (R-REF6673 R)
                                            (C-REF6674 C) (B-REF6675 B)
                                            (X-REF6677 X) (BERR-REF6681 BERR)
                                            (ERR_BNDS_NORM-REF6683
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF6684
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF6686 PARAMS)
                                            (WORK-REF6687 WORK)
                                            (IWORK-REF6688 IWORK))
      (%%DGESVXX FACT TRANS N-REF6665 NRHS-REF6666 A-REF6667 LDA-REF6668
                 AF-REF6669 LDAF-REF6670 IPIV-REF6671 EQUED R-REF6673 C-REF6674
                 B-REF6675 LDB-REF6676 X-REF6677 LDX-REF6678 RCOND-REF6679
                 RPVGRW-REF6680 BERR-REF6681 N_ERR_BNDS-REF6682
                 ERR_BNDS_NORM-REF6683 ERR_BNDS_COMP-REF6684 NPARAMS-REF6685
                 PARAMS-REF6686 WORK-REF6687 IWORK-REF6688 INFO-REF6689))))

(CFFI:DEFCFUN ("dgetc2_" %%DGETC2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (JPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETC2 (N A LDA IPIV JPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETC2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6690 ':INT32) (LDA-REF6692 ':INT32)
                              (INFO-REF6695 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6690 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6692 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6695 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6691 A) (IPIV-REF6693 IPIV)
                                            (JPIV-REF6694 JPIV))
      (%%DGETC2 N-REF6690 A-REF6691 LDA-REF6692 IPIV-REF6693 JPIV-REF6694
                INFO-REF6695))))

(CFFI:DEFCFUN ("dgetf2_" %%DGETF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6696 ':INT32) (N-REF6697 ':INT32)
                              (LDA-REF6699 ':INT32) (INFO-REF6701 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6696 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6699 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6701 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6698 A) (IPIV-REF6700 IPIV))
      (%%DGETF2 M-REF6696 N-REF6697 A-REF6698 LDA-REF6699 IPIV-REF6700
                INFO-REF6701))))

(CFFI:DEFCFUN ("dgetrf_" %%DGETRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6702 ':INT32) (N-REF6703 ':INT32)
                              (LDA-REF6705 ':INT32) (INFO-REF6707 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6702 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6703 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6705 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6707 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6704 A) (IPIV-REF6706 IPIV))
      (%%DGETRF M-REF6702 N-REF6703 A-REF6704 LDA-REF6705 IPIV-REF6706
                INFO-REF6707))))

(CFFI:DEFCFUN ("dgetrf2_" %%DGETRF2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRF2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6708 ':INT32) (N-REF6709 ':INT32)
                              (LDA-REF6711 ':INT32) (INFO-REF6713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6708 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6709 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6711 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6713 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6710 A) (IPIV-REF6712 IPIV))
      (%%DGETRF2 M-REF6708 N-REF6709 A-REF6710 LDA-REF6711 IPIV-REF6712
                 INFO-REF6713))))

(CFFI:DEFCFUN ("dgetri_" %%DGETRI :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRI (N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6714 ':INT32) (LDA-REF6716 ':INT32)
                              (LWORK-REF6719 ':INT32) (INFO-REF6720 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6719 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6720 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6715 A) (IPIV-REF6717 IPIV)
                                            (WORK-REF6718 WORK))
      (%%DGETRI N-REF6714 A-REF6715 LDA-REF6716 IPIV-REF6717 WORK-REF6718
                LWORK-REF6719 INFO-REF6720))))

(CFFI:DEFCFUN ("dgetrs_" %%DGETRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETRS (TRANS N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6722 ':INT32) (NRHS-REF6723 ':INT32)
                              (LDA-REF6725 ':INT32) (LDB-REF6728 ':INT32)
                              (INFO-REF6729 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6722 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6723 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6725 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6728 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6729 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6724 A) (IPIV-REF6726 IPIV)
                                            (B-REF6727 B))
      (%%DGETRS TRANS N-REF6722 NRHS-REF6723 A-REF6724 LDA-REF6725 IPIV-REF6726
                B-REF6727 LDB-REF6728 INFO-REF6729))))

(CFFI:DEFCFUN ("dgetsls_" %%DGETSLS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGETSLS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGETSLS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6731 ':INT32) (N-REF6732 ':INT32)
                              (NRHS-REF6733 ':INT32) (LDA-REF6735 ':INT32)
                              (LDB-REF6737 ':INT32) (LWORK-REF6739 ':INT32)
                              (INFO-REF6740 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6731 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6732 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF6733 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6735 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6737 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6739 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6740 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6734 A) (B-REF6736 B)
                                            (WORK-REF6738 WORK))
      (%%DGETSLS TRANS M-REF6731 N-REF6732 NRHS-REF6733 A-REF6734 LDA-REF6735
                 B-REF6736 LDB-REF6737 WORK-REF6738 LWORK-REF6739
                 INFO-REF6740))))

(CFFI:DEFCFUN ("dggbak_" %%DGGBAK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (SIDE :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (M :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGBAK (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6743 ':INT32) (ILO-REF6744 ':INT32)
                              (IHI-REF6745 ':INT32) (M-REF6748 ':INT32)
                              (LDV-REF6750 ':INT32) (INFO-REF6751 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6743 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6744 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6745 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6748 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6750 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6751 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF6746 LSCALE)
                                            (RSCALE-REF6747 RSCALE)
                                            (V-REF6749 V))
      (%%DGGBAK JOB SIDE N-REF6743 ILO-REF6744 IHI-REF6745 LSCALE-REF6746
                RSCALE-REF6747 M-REF6748 V-REF6749 LDV-REF6750 INFO-REF6751))))

(CFFI:DEFCFUN ("dggbal_" %%DGGBAL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGBAL (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6753 ':INT32) (LDA-REF6755 ':INT32)
                              (LDB-REF6757 ':INT32) (ILO-REF6758 ':INT32)
                              (IHI-REF6759 ':INT32) (INFO-REF6763 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6753 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6755 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6757 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6758 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6759 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6763 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6754 A) (B-REF6756 B)
                                            (LSCALE-REF6760 LSCALE)
                                            (RSCALE-REF6761 RSCALE)
                                            (WORK-REF6762 WORK))
      (%%DGGBAL JOB N-REF6753 A-REF6754 LDA-REF6755 B-REF6756 LDB-REF6757
                ILO-REF6758 IHI-REF6759 LSCALE-REF6760 RSCALE-REF6761
                WORK-REF6762 INFO-REF6763))))

(CFFI:DEFCFUN ("dgges_" %%DGGES :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGES
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6767 ':INT32) (N-REF6768 ':INT32)
                              (LDA-REF6770 ':INT32) (LDB-REF6772 ':INT32)
                              (SDIM-REF6773 ':INT32) (LDVSL-REF6778 ':INT32)
                              (LDVSR-REF6780 ':INT32) (LWORK-REF6782 ':INT32)
                              (INFO-REF6784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6767 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6770 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6772 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6773 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6778 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6780 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6782 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6784 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6769 A) (B-REF6771 B)
                                            (ALPHAR-REF6774 ALPHAR)
                                            (ALPHAI-REF6775 ALPHAI)
                                            (BETA-REF6776 BETA)
                                            (VSL-REF6777 VSL) (VSR-REF6779 VSR)
                                            (WORK-REF6781 WORK)
                                            (BWORK-REF6783 BWORK))
      (%%DGGES JOBVSL JOBVSR SORT SELCTG-REF6767 N-REF6768 A-REF6769
               LDA-REF6770 B-REF6771 LDB-REF6772 SDIM-REF6773 ALPHAR-REF6774
               ALPHAI-REF6775 BETA-REF6776 VSL-REF6777 LDVSL-REF6778
               VSR-REF6779 LDVSR-REF6780 WORK-REF6781 LWORK-REF6782
               BWORK-REF6783 INFO-REF6784))))

(CFFI:DEFCFUN ("dgges3_" %%DGGES3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGES3
                   (JOBVSL JOBVSR SORT SELCTG N A LDA B LDB SDIM ALPHAR ALPHAI
                    BETA VSL LDVSL VSR LDVSR WORK LWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGES3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6788 ':INT32) (N-REF6789 ':INT32)
                              (LDA-REF6791 ':INT32) (LDB-REF6793 ':INT32)
                              (SDIM-REF6794 ':INT32) (LDVSL-REF6799 ':INT32)
                              (LDVSR-REF6801 ':INT32) (LWORK-REF6803 ':INT32)
                              (INFO-REF6805 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6788 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6789 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6791 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6793 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6794 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6799 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6801 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6803 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6805 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6790 A) (B-REF6792 B)
                                            (ALPHAR-REF6795 ALPHAR)
                                            (ALPHAI-REF6796 ALPHAI)
                                            (BETA-REF6797 BETA)
                                            (VSL-REF6798 VSL) (VSR-REF6800 VSR)
                                            (WORK-REF6802 WORK)
                                            (BWORK-REF6804 BWORK))
      (%%DGGES3 JOBVSL JOBVSR SORT SELCTG-REF6788 N-REF6789 A-REF6790
                LDA-REF6791 B-REF6792 LDB-REF6793 SDIM-REF6794 ALPHAR-REF6795
                ALPHAI-REF6796 BETA-REF6797 VSL-REF6798 LDVSL-REF6799
                VSR-REF6800 LDVSR-REF6801 WORK-REF6802 LWORK-REF6803
                BWORK-REF6804 INFO-REF6805))))

(CFFI:DEFCFUN ("dggesx_" %%DGGESX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVSL :STRING)
  (JOBVSR :STRING)
  (SORT :STRING)
  (SELCTG :POINTER)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SDIM :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VSL :POINTER)
  (LDVSL :POINTER)
  (VSR :POINTER)
  (LDVSR :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (LIWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGESX
                   (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR
                    ALPHAI BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK
                    IWORK LIWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGESX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VSR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF6809 ':INT32) (N-REF6811 ':INT32)
                              (LDA-REF6813 ':INT32) (LDB-REF6815 ':INT32)
                              (SDIM-REF6816 ':INT32) (LDVSL-REF6821 ':INT32)
                              (LDVSR-REF6823 ':INT32) (LWORK-REF6827 ':INT32)
                              (LIWORK-REF6829 ':INT32) (INFO-REF6831 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF6809 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6811 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6813 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6815 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF6816 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF6821 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF6823 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6827 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF6829 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6831 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6812 A) (B-REF6814 B)
                                            (ALPHAR-REF6817 ALPHAR)
                                            (ALPHAI-REF6818 ALPHAI)
                                            (BETA-REF6819 BETA)
                                            (VSL-REF6820 VSL) (VSR-REF6822 VSR)
                                            (RCONDE-REF6824 RCONDE)
                                            (RCONDV-REF6825 RCONDV)
                                            (WORK-REF6826 WORK)
                                            (IWORK-REF6828 IWORK)
                                            (BWORK-REF6830 BWORK))
      (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF6809 SENSE N-REF6811 A-REF6812
                LDA-REF6813 B-REF6814 LDB-REF6815 SDIM-REF6816 ALPHAR-REF6817
                ALPHAI-REF6818 BETA-REF6819 VSL-REF6820 LDVSL-REF6821
                VSR-REF6822 LDVSR-REF6823 RCONDE-REF6824 RCONDV-REF6825
                WORK-REF6826 LWORK-REF6827 IWORK-REF6828 LIWORK-REF6829
                BWORK-REF6830 INFO-REF6831))))

(CFFI:DEFCFUN ("dggev_" %%DGGEV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGEV
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6834 ':INT32) (LDA-REF6836 ':INT32)
                              (LDB-REF6838 ':INT32) (LDVL-REF6843 ':INT32)
                              (LDVR-REF6845 ':INT32) (LWORK-REF6847 ':INT32)
                              (INFO-REF6848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6836 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6838 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6843 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6845 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6847 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6835 A) (B-REF6837 B)
                                            (ALPHAR-REF6839 ALPHAR)
                                            (ALPHAI-REF6840 ALPHAI)
                                            (BETA-REF6841 BETA) (VL-REF6842 VL)
                                            (VR-REF6844 VR) (WORK-REF6846 WORK))
      (%%DGGEV JOBVL JOBVR N-REF6834 A-REF6835 LDA-REF6836 B-REF6837
               LDB-REF6838 ALPHAR-REF6839 ALPHAI-REF6840 BETA-REF6841
               VL-REF6842 LDVL-REF6843 VR-REF6844 LDVR-REF6845 WORK-REF6846
               LWORK-REF6847 INFO-REF6848))))

(CFFI:DEFCFUN ("dggev3_" %%DGGEV3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBVL :STRING)
  (JOBVR :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGEV3
                   (JOBVL JOBVR N A LDA B LDB ALPHAR ALPHAI BETA VL LDVL VR
                    LDVR WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEV3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6851 ':INT32) (LDA-REF6853 ':INT32)
                              (LDB-REF6855 ':INT32) (LDVL-REF6860 ':INT32)
                              (LDVR-REF6862 ':INT32) (LWORK-REF6864 ':INT32)
                              (INFO-REF6865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6851 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6853 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6855 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6860 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6862 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6864 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6852 A) (B-REF6854 B)
                                            (ALPHAR-REF6856 ALPHAR)
                                            (ALPHAI-REF6857 ALPHAI)
                                            (BETA-REF6858 BETA) (VL-REF6859 VL)
                                            (VR-REF6861 VR) (WORK-REF6863 WORK))
      (%%DGGEV3 JOBVL JOBVR N-REF6851 A-REF6852 LDA-REF6853 B-REF6854
                LDB-REF6855 ALPHAR-REF6856 ALPHAI-REF6857 BETA-REF6858
                VL-REF6859 LDVL-REF6860 VR-REF6861 LDVR-REF6862 WORK-REF6863
                LWORK-REF6864 INFO-REF6865))))

(CFFI:DEFCFUN ("dggevx_" %%DGGEVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (BALANC :STRING)
  (JOBVL :STRING)
  (JOBVR :STRING)
  (SENSE :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (LSCALE :POINTER)
  (RSCALE :POINTER)
  (ABNRM :POINTER)
  (BBNRM :POINTER)
  (RCONDE :POINTER)
  (RCONDV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (BWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGEVX
                   (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHAR ALPHAI BETA
                    VL LDVL VR LDVR ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE
                    RCONDV WORK LWORK IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGEVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LSCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RSCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RCONDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        BWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6870 ':INT32) (LDA-REF6872 ':INT32)
                              (LDB-REF6874 ':INT32) (LDVL-REF6879 ':INT32)
                              (LDVR-REF6881 ':INT32) (ILO-REF6882 ':INT32)
                              (IHI-REF6883 ':INT32) (ABNRM-REF6886 ':DOUBLE)
                              (BBNRM-REF6887 ':DOUBLE) (LWORK-REF6891 ':INT32)
                              (INFO-REF6894 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6872 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6874 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF6879 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF6881 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6882 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6883 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF6886 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF6887 :DOUBLE) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6891 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6894 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6871 A) (B-REF6873 B)
                                            (ALPHAR-REF6875 ALPHAR)
                                            (ALPHAI-REF6876 ALPHAI)
                                            (BETA-REF6877 BETA) (VL-REF6878 VL)
                                            (VR-REF6880 VR)
                                            (LSCALE-REF6884 LSCALE)
                                            (RSCALE-REF6885 RSCALE)
                                            (RCONDE-REF6888 RCONDE)
                                            (RCONDV-REF6889 RCONDV)
                                            (WORK-REF6890 WORK)
                                            (IWORK-REF6892 IWORK)
                                            (BWORK-REF6893 BWORK))
      (%%DGGEVX BALANC JOBVL JOBVR SENSE N-REF6870 A-REF6871 LDA-REF6872
                B-REF6873 LDB-REF6874 ALPHAR-REF6875 ALPHAI-REF6876
                BETA-REF6877 VL-REF6878 LDVL-REF6879 VR-REF6880 LDVR-REF6881
                ILO-REF6882 IHI-REF6883 LSCALE-REF6884 RSCALE-REF6885
                ABNRM-REF6886 BBNRM-REF6887 RCONDE-REF6888 RCONDV-REF6889
                WORK-REF6890 LWORK-REF6891 IWORK-REF6892 BWORK-REF6893
                INFO-REF6894))))

(CFFI:DEFCFUN ("dggglm_" %%DGGGLM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (D :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGGLM (N M P A LDA B LDB D X Y WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGGLM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6895 ':INT32) (M-REF6896 ':INT32)
                              (P-REF6897 ':INT32) (LDA-REF6899 ':INT32)
                              (LDB-REF6901 ':INT32) (LWORK-REF6906 ':INT32)
                              (INFO-REF6907 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6895 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6896 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6897 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6901 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6906 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6907 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6898 A) (B-REF6900 B)
                                            (D-REF6902 D) (X-REF6903 X)
                                            (Y-REF6904 Y) (WORK-REF6905 WORK))
      (%%DGGGLM N-REF6895 M-REF6896 P-REF6897 A-REF6898 LDA-REF6899 B-REF6900
                LDB-REF6901 D-REF6902 X-REF6903 Y-REF6904 WORK-REF6905
                LWORK-REF6906 INFO-REF6907))))

(CFFI:DEFCFUN ("dgghd3_" %%DGGHD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGHD3
                   (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6910 ':INT32) (ILO-REF6911 ':INT32)
                              (IHI-REF6912 ':INT32) (LDA-REF6914 ':INT32)
                              (LDB-REF6916 ':INT32) (LDQ-REF6918 ':INT32)
                              (LDZ-REF6920 ':INT32) (LWORK-REF6922 ':INT32)
                              (INFO-REF6923 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6910 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6911 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6912 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6914 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6916 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6918 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6920 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6922 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6923 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6913 A) (B-REF6915 B)
                                            (Q-REF6917 Q) (Z-REF6919 Z)
                                            (WORK-REF6921 WORK))
      (%%DGGHD3 COMPQ COMPZ N-REF6910 ILO-REF6911 IHI-REF6912 A-REF6913
                LDA-REF6914 B-REF6915 LDB-REF6916 Q-REF6917 LDQ-REF6918
                Z-REF6919 LDZ-REF6920 WORK-REF6921 LWORK-REF6922
                INFO-REF6923))))

(CFFI:DEFCFUN ("dgghrd_" %%DGGHRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGHRD (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGHRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6926 ':INT32) (ILO-REF6927 ':INT32)
                              (IHI-REF6928 ':INT32) (LDA-REF6930 ':INT32)
                              (LDB-REF6932 ':INT32) (LDQ-REF6934 ':INT32)
                              (LDZ-REF6936 ':INT32) (INFO-REF6937 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF6927 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF6928 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6930 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6932 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6934 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF6936 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6937 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6929 A) (B-REF6931 B)
                                            (Q-REF6933 Q) (Z-REF6935 Z))
      (%%DGGHRD COMPQ COMPZ N-REF6926 ILO-REF6927 IHI-REF6928 A-REF6929
                LDA-REF6930 B-REF6931 LDB-REF6932 Q-REF6933 LDQ-REF6934
                Z-REF6935 LDZ-REF6936 INFO-REF6937))))

(CFFI:DEFCFUN ("dgglse_" %%DGGLSE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (C :POINTER)
  (D :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGLSE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6938 ':INT32) (N-REF6939 ':INT32)
                              (P-REF6940 ':INT32) (LDA-REF6942 ':INT32)
                              (LDB-REF6944 ':INT32) (LWORK-REF6949 ':INT32)
                              (INFO-REF6950 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6938 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6939 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6940 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6942 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6944 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6949 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6950 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6941 A) (B-REF6943 B)
                                            (C-REF6945 C) (D-REF6946 D)
                                            (X-REF6947 X) (WORK-REF6948 WORK))
      (%%DGGLSE M-REF6938 N-REF6939 P-REF6940 A-REF6941 LDA-REF6942 B-REF6943
                LDB-REF6944 C-REF6945 D-REF6946 X-REF6947 WORK-REF6948
                LWORK-REF6949 INFO-REF6950))))

(CFFI:DEFCFUN ("dggqrf_" %%DGGQRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (M :POINTER)
  (P :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGQRF (N M P A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGQRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF6951 ':INT32) (M-REF6952 ':INT32)
                              (P-REF6953 ':INT32) (LDA-REF6955 ':INT32)
                              (LDB-REF6958 ':INT32) (LWORK-REF6961 ':INT32)
                              (INFO-REF6962 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6952 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6953 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6955 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6958 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6961 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6962 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6954 A) (TAUA-REF6956 TAUA)
                                            (B-REF6957 B) (TAUB-REF6959 TAUB)
                                            (WORK-REF6960 WORK))
      (%%DGGQRF N-REF6951 M-REF6952 P-REF6953 A-REF6954 LDA-REF6955
                TAUA-REF6956 B-REF6957 LDB-REF6958 TAUB-REF6959 WORK-REF6960
                LWORK-REF6961 INFO-REF6962))))

(CFFI:DEFCFUN ("dggrqf_" %%DGGRQF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAUA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TAUB :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGRQF (M P N A LDA TAUA B LDB TAUB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGRQF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6963 ':INT32) (P-REF6964 ':INT32)
                              (N-REF6965 ':INT32) (LDA-REF6967 ':INT32)
                              (LDB-REF6970 ':INT32) (LWORK-REF6973 ':INT32)
                              (INFO-REF6974 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6963 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6964 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6965 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6967 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6970 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6973 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6974 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6966 A) (TAUA-REF6968 TAUA)
                                            (B-REF6969 B) (TAUB-REF6971 TAUB)
                                            (WORK-REF6972 WORK))
      (%%DGGRQF M-REF6963 P-REF6964 N-REF6965 A-REF6966 LDA-REF6967
                TAUA-REF6968 B-REF6969 LDB-REF6970 TAUB-REF6971 WORK-REF6972
                LWORK-REF6973 INFO-REF6974))))

(CFFI:DEFCFUN ("dggsvd3_" %%DGGSVD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (N :POINTER)
  (P :POINTER)
  (K :POINTER)
  (L :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGSVD3
                   (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV
                    Q LDQ WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVD3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF6978 ':INT32) (N-REF6979 ':INT32)
                              (P-REF6980 ':INT32) (K-REF6981 ':INT32)
                              (L-REF6982 ':INT32) (LDA-REF6984 ':INT32)
                              (LDB-REF6986 ':INT32) (LDU-REF6990 ':INT32)
                              (LDV-REF6992 ':INT32) (LDQ-REF6994 ':INT32)
                              (LWORK-REF6996 ':INT32) (INFO-REF6998 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF6978 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF6979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF6980 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF6981 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF6982 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF6984 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF6986 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF6990 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF6992 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF6994 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF6996 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF6998 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF6983 A) (B-REF6985 B)
                                            (ALPHA-REF6987 ALPHA)
                                            (BETA-REF6988 BETA) (U-REF6989 U)
                                            (V-REF6991 V) (Q-REF6993 Q)
                                            (WORK-REF6995 WORK)
                                            (IWORK-REF6997 IWORK))
      (%%DGGSVD3 JOBU JOBV JOBQ M-REF6978 N-REF6979 P-REF6980 K-REF6981
                 L-REF6982 A-REF6983 LDA-REF6984 B-REF6985 LDB-REF6986
                 ALPHA-REF6987 BETA-REF6988 U-REF6989 LDU-REF6990 V-REF6991
                 LDV-REF6992 Q-REF6993 LDQ-REF6994 WORK-REF6995 LWORK-REF6996
                 IWORK-REF6997 INFO-REF6998))))

(CFFI:DEFCFUN ("dggsvp3_" %%DGGSVP3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBU :STRING)
  (JOBV :STRING)
  (JOBQ :STRING)
  (M :POINTER)
  (P :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (TOLA :POINTER)
  (TOLB :POINTER)
  (K :POINTER)
  (L :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (IWORK :POINTER)
  (TAU :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGGSVP3
                   (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV
                    Q LDQ IWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVP3)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7002 ':INT32) (P-REF7003 ':INT32)
                              (N-REF7004 ':INT32) (LDA-REF7006 ':INT32)
                              (LDB-REF7008 ':INT32) (TOLA-REF7009 ':DOUBLE)
                              (TOLB-REF7010 ':DOUBLE) (K-REF7011 ':INT32)
                              (L-REF7012 ':INT32) (LDU-REF7014 ':INT32)
                              (LDV-REF7016 ':INT32) (LDQ-REF7018 ':INT32)
                              (LWORK-REF7022 ':INT32) (INFO-REF7023 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7002 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7003 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7006 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7008 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF7009 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF7010 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7011 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF7012 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7014 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7016 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7018 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7022 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7023 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7005 A) (B-REF7007 B)
                                            (U-REF7013 U) (V-REF7015 V)
                                            (Q-REF7017 Q) (IWORK-REF7019 IWORK)
                                            (TAU-REF7020 TAU)
                                            (WORK-REF7021 WORK))
      (%%DGGSVP3 JOBU JOBV JOBQ M-REF7002 P-REF7003 N-REF7004 A-REF7005
                 LDA-REF7006 B-REF7007 LDB-REF7008 TOLA-REF7009 TOLB-REF7010
                 K-REF7011 L-REF7012 U-REF7013 LDU-REF7014 V-REF7015
                 LDV-REF7016 Q-REF7017 LDQ-REF7018 IWORK-REF7019 TAU-REF7020
                 WORK-REF7021 LWORK-REF7022 INFO-REF7023))))

(CFFI:DEFCFUN ("dgsvj0_" %%DGSVJ0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGSVJ0
                   (JOBV M N A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ0)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7025 ':INT32) (N-REF7026 ':INT32)
                              (LDA-REF7028 ':INT32) (MV-REF7031 ':INT32)
                              (LDV-REF7033 ':INT32) (EPS-REF7034 ':DOUBLE)
                              (SFMIN-REF7035 ':DOUBLE) (TOL-REF7036 ':DOUBLE)
                              (NSWEEP-REF7037 ':INT32) (LWORK-REF7039 ':INT32)
                              (INFO-REF7040 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7025 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7026 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7028 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7031 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7033 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7034 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7035 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7036 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7037 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7039 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7040 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7027 A) (D-REF7029 D)
                                            (SVA-REF7030 SVA) (V-REF7032 V)
                                            (WORK-REF7038 WORK))
      (%%DGSVJ0 JOBV M-REF7025 N-REF7026 A-REF7027 LDA-REF7028 D-REF7029
                SVA-REF7030 MV-REF7031 V-REF7032 LDV-REF7033 EPS-REF7034
                SFMIN-REF7035 TOL-REF7036 NSWEEP-REF7037 WORK-REF7038
                LWORK-REF7039 INFO-REF7040))))

(CFFI:DEFCFUN ("dgsvj1_" %%DGSVJ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBV :STRING)
  (M :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (SVA :POINTER)
  (MV :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (EPS :POINTER)
  (SFMIN :POINTER)
  (TOL :POINTER)
  (NSWEEP :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGSVJ1
                   (JOBV M N N1 A LDA D SVA MV V LDV EPS SFMIN TOL NSWEEP WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGSVJ1)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        SVA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSWEEP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7042 ':INT32) (N-REF7043 ':INT32)
                              (N1-REF7044 ':INT32) (LDA-REF7046 ':INT32)
                              (MV-REF7049 ':INT32) (LDV-REF7051 ':INT32)
                              (EPS-REF7052 ':DOUBLE) (SFMIN-REF7053 ':DOUBLE)
                              (TOL-REF7054 ':DOUBLE) (NSWEEP-REF7055 ':INT32)
                              (LWORK-REF7057 ':INT32) (INFO-REF7058 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7042 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7043 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7044 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7046 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF7049 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7051 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF7052 :DOUBLE) EPS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SFMIN-REF7053 :DOUBLE) SFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7054 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSWEEP-REF7055 :INT32) NSWEEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7057 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7058 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7045 A) (D-REF7047 D)
                                            (SVA-REF7048 SVA) (V-REF7050 V)
                                            (WORK-REF7056 WORK))
      (%%DGSVJ1 JOBV M-REF7042 N-REF7043 N1-REF7044 A-REF7045 LDA-REF7046
                D-REF7047 SVA-REF7048 MV-REF7049 V-REF7050 LDV-REF7051
                EPS-REF7052 SFMIN-REF7053 TOL-REF7054 NSWEEP-REF7055
                WORK-REF7056 LWORK-REF7057 INFO-REF7058))))

(CFFI:DEFCFUN ("dgtcon_" %%DGTCON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (ANORM :POINTER)
  (RCOND :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTCON
                   (NORM N DL D DU DU2 IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTCON)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7060 ':INT32) (ANORM-REF7066 ':DOUBLE)
                              (RCOND-REF7067 ':DOUBLE) (INFO-REF7070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7060 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7066 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7067 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7070 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7061 DL) (D-REF7062 D)
                                            (DU-REF7063 DU) (DU2-REF7064 DU2)
                                            (IPIV-REF7065 IPIV)
                                            (WORK-REF7068 WORK)
                                            (IWORK-REF7069 IWORK))
      (%%DGTCON NORM N-REF7060 DL-REF7061 D-REF7062 DU-REF7063 DU2-REF7064
                IPIV-REF7065 ANORM-REF7066 RCOND-REF7067 WORK-REF7068
                IWORK-REF7069 INFO-REF7070))))

(CFFI:DEFCFUN ("dgtrfs_" %%DGTRFS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTRFS
                   (TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX FERR
                    BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTRFS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7072 ':INT32) (NRHS-REF7073 ':INT32)
                              (LDB-REF7083 ':INT32) (LDX-REF7085 ':INT32)
                              (INFO-REF7090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7072 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7073 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7083 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7085 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7090 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7074 DL) (D-REF7075 D)
                                            (DU-REF7076 DU) (DLF-REF7077 DLF)
                                            (DF-REF7078 DF) (DUF-REF7079 DUF)
                                            (DU2-REF7080 DU2)
                                            (IPIV-REF7081 IPIV) (B-REF7082 B)
                                            (X-REF7084 X) (FERR-REF7086 FERR)
                                            (BERR-REF7087 BERR)
                                            (WORK-REF7088 WORK)
                                            (IWORK-REF7089 IWORK))
      (%%DGTRFS TRANS N-REF7072 NRHS-REF7073 DL-REF7074 D-REF7075 DU-REF7076
                DLF-REF7077 DF-REF7078 DUF-REF7079 DU2-REF7080 IPIV-REF7081
                B-REF7082 LDB-REF7083 X-REF7084 LDX-REF7085 FERR-REF7086
                BERR-REF7087 WORK-REF7088 IWORK-REF7089 INFO-REF7090))))

(CFFI:DEFCFUN ("dgtsv_" %%DGTSV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTSV (N NRHS DL D DU B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7091 ':INT32) (NRHS-REF7092 ':INT32)
                              (LDB-REF7097 ':INT32) (INFO-REF7098 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7091 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7092 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7097 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7098 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7093 DL) (D-REF7094 D)
                                            (DU-REF7095 DU) (B-REF7096 B))
      (%%DGTSV N-REF7091 NRHS-REF7092 DL-REF7093 D-REF7094 DU-REF7095 B-REF7096
               LDB-REF7097 INFO-REF7098))))

(CFFI:DEFCFUN ("dgtsvx_" %%DGTSVX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FACT :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DLF :POINTER)
  (DF :POINTER)
  (DUF :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (RCOND :POINTER)
  (FERR :POINTER)
  (BERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTSVX
                   (FACT TRANS N NRHS DL D DU DLF DF DUF DU2 IPIV B LDB X LDX
                    RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTSVX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DUF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        FERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7101 ':INT32) (NRHS-REF7102 ':INT32)
                              (LDB-REF7112 ':INT32) (LDX-REF7114 ':INT32)
                              (RCOND-REF7115 ':DOUBLE) (INFO-REF7120 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7101 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7102 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7112 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7114 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7115 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7120 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7103 DL) (D-REF7104 D)
                                            (DU-REF7105 DU) (DLF-REF7106 DLF)
                                            (DF-REF7107 DF) (DUF-REF7108 DUF)
                                            (DU2-REF7109 DU2)
                                            (IPIV-REF7110 IPIV) (B-REF7111 B)
                                            (X-REF7113 X) (FERR-REF7116 FERR)
                                            (BERR-REF7117 BERR)
                                            (WORK-REF7118 WORK)
                                            (IWORK-REF7119 IWORK))
      (%%DGTSVX FACT TRANS N-REF7101 NRHS-REF7102 DL-REF7103 D-REF7104
                DU-REF7105 DLF-REF7106 DF-REF7107 DUF-REF7108 DU2-REF7109
                IPIV-REF7110 B-REF7111 LDB-REF7112 X-REF7113 LDX-REF7114
                RCOND-REF7115 FERR-REF7116 BERR-REF7117 WORK-REF7118
                IWORK-REF7119 INFO-REF7120))))

(CFFI:DEFCFUN ("dgttrf_" %%DGTTRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTTRF (N DL D DU DU2 IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7121 ':INT32) (INFO-REF7127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7121 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7122 DL) (D-REF7123 D)
                                            (DU-REF7124 DU) (DU2-REF7125 DU2)
                                            (IPIV-REF7126 IPIV))
      (%%DGTTRF N-REF7121 DL-REF7122 D-REF7123 DU-REF7124 DU2-REF7125
                IPIV-REF7126 INFO-REF7127))))

(CFFI:DEFCFUN ("dgttrs_" %%DGTTRS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTRS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7129 ':INT32) (NRHS-REF7130 ':INT32)
                              (LDB-REF7137 ':INT32) (INFO-REF7138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7129 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7130 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7137 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7131 DL) (D-REF7132 D)
                                            (DU-REF7133 DU) (DU2-REF7134 DU2)
                                            (IPIV-REF7135 IPIV) (B-REF7136 B))
      (%%DGTTRS TRANS N-REF7129 NRHS-REF7130 DL-REF7131 D-REF7132 DU-REF7133
                DU2-REF7134 IPIV-REF7135 B-REF7136 LDB-REF7137 INFO-REF7138))))

(CFFI:DEFCFUN ("dgtts2_" %%DGTTS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ITRANS :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (DU2 :POINTER)
  (IPIV :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF7139 ':INT32) (N-REF7140 ':INT32)
                              (NRHS-REF7141 ':INT32) (LDB-REF7148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF7139 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7141 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7148 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7142 DL) (D-REF7143 D)
                                            (DU-REF7144 DU) (DU2-REF7145 DU2)
                                            (IPIV-REF7146 IPIV) (B-REF7147 B))
      (%%DGTTS2 ITRANS-REF7139 N-REF7140 NRHS-REF7141 DL-REF7142 D-REF7143
                DU-REF7144 DU2-REF7145 IPIV-REF7146 B-REF7147 LDB-REF7148))))

(CFFI:DEFCFUN ("dhgeqz_" %%DHGEQZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPQ :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DHGEQZ
                   (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHAR ALPHAI BETA Q
                    LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHGEQZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7152 ':INT32) (ILO-REF7153 ':INT32)
                              (IHI-REF7154 ':INT32) (LDH-REF7156 ':INT32)
                              (LDT-REF7158 ':INT32) (LDQ-REF7163 ':INT32)
                              (LDZ-REF7165 ':INT32) (LWORK-REF7167 ':INT32)
                              (INFO-REF7168 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7152 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7153 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7154 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7156 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7158 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7163 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7165 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7167 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7168 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7155 H) (T-REF7157 T)
                                            (ALPHAR-REF7159 ALPHAR)
                                            (ALPHAI-REF7160 ALPHAI)
                                            (BETA-REF7161 BETA) (Q-REF7162 Q)
                                            (Z-REF7164 Z) (WORK-REF7166 WORK))
      (%%DHGEQZ JOB COMPQ COMPZ N-REF7152 ILO-REF7153 IHI-REF7154 H-REF7155
                LDH-REF7156 T-REF7157 LDT-REF7158 ALPHAR-REF7159 ALPHAI-REF7160
                BETA-REF7161 Q-REF7162 LDQ-REF7163 Z-REF7164 LDZ-REF7165
                WORK-REF7166 LWORK-REF7167 INFO-REF7168))))

(CFFI:DEFCFUN ("dhsein_" %%DHSEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (EIGSRC :STRING)
  (INITV :STRING)
  (SELECT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VL :POINTER)
  (LDVL :POINTER)
  (VR :POINTER)
  (LDVR :POINTER)
  (MM :POINTER)
  (M :POINTER)
  (WORK :POINTER)
  (IFAILL :POINTER)
  (IFAILR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DHSEIN
                   (SIDE EIGSRC INITV SELECT N H LDH WR WI VL LDVL VR LDVR MM M
                    WORK IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEIN)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        SELECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IFAILR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7173 ':INT32) (LDH-REF7175 ':INT32)
                              (LDVL-REF7179 ':INT32) (LDVR-REF7181 ':INT32)
                              (MM-REF7182 ':INT32) (M-REF7183 ':INT32)
                              (INFO-REF7187 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7173 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7175 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF7179 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF7181 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF7182 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7183 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7187 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF7172 SELECT)
                                            (H-REF7174 H) (WR-REF7176 WR)
                                            (WI-REF7177 WI) (VL-REF7178 VL)
                                            (VR-REF7180 VR) (WORK-REF7184 WORK)
                                            (IFAILL-REF7185 IFAILL)
                                            (IFAILR-REF7186 IFAILR))
      (%%DHSEIN SIDE EIGSRC INITV SELECT-REF7172 N-REF7173 H-REF7174
                LDH-REF7175 WR-REF7176 WI-REF7177 VL-REF7178 LDVL-REF7179
                VR-REF7180 LDVR-REF7181 MM-REF7182 M-REF7183 WORK-REF7184
                IFAILL-REF7185 IFAILR-REF7186 INFO-REF7187))))

(CFFI:DEFCFUN ("dhseqr_" %%DHSEQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :STRING)
  (COMPZ :STRING)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DHSEQR
                   (JOB COMPZ N ILO IHI H LDH WR WI Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DHSEQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7190 ':INT32) (ILO-REF7191 ':INT32)
                              (IHI-REF7192 ':INT32) (LDH-REF7194 ':INT32)
                              (LDZ-REF7198 ':INT32) (LWORK-REF7200 ':INT32)
                              (INFO-REF7201 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7191 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7192 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7194 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7198 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7200 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7201 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7193 H) (WR-REF7195 WR)
                                            (WI-REF7196 WI) (Z-REF7197 Z)
                                            (WORK-REF7199 WORK))
      (%%DHSEQR JOB COMPZ N-REF7190 ILO-REF7191 IHI-REF7192 H-REF7193
                LDH-REF7194 WR-REF7195 WI-REF7196 Z-REF7197 LDZ-REF7198
                WORK-REF7199 LWORK-REF7200 INFO-REF7201))))

(CFFI:DEFCFUN ("disnan_" %%DISNAN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (DIN :POINTER))

(COMMON-LISP:DEFUN %DISNAN (DIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((DIN-REF7202 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN-REF7202 :DOUBLE) DIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DISNAN DIN-REF7202))))

(CFFI:DEFCFUN ("dla_gbamv_" %%DLA_GBAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DLA_GBAMV
                   (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7203 ':INT32) (M-REF7204 ':INT32)
                              (N-REF7205 ':INT32) (KL-REF7206 ':INT32)
                              (KU-REF7207 ':INT32) (ALPHA-REF7208 ':DOUBLE)
                              (LDAB-REF7210 ':INT32) (INCX-REF7212 ':INT32)
                              (BETA-REF7213 ':DOUBLE) (INCY-REF7215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7203 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7204 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7205 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7206 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7207 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7208 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7210 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7212 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7213 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7215 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7209 AB) (X-REF7211 X)
                                            (Y-REF7214 Y))
      (%%DLA_GBAMV TRANS-REF7203 M-REF7204 N-REF7205 KL-REF7206 KU-REF7207
                   ALPHA-REF7208 AB-REF7209 LDAB-REF7210 X-REF7211 INCX-REF7212
                   BETA-REF7213 Y-REF7214 INCY-REF7215))))

(CFFI:DEFCFUN ("dla_gbrcond_" %%DLA_GBRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_GBRCOND
                   (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK
                    IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7217 ':INT32) (KL-REF7218 ':INT32)
                              (KU-REF7219 ':INT32) (LDAB-REF7221 ':INT32)
                              (LDAFB-REF7223 ':INT32) (CMODE-REF7225 ':INT32)
                              (INFO-REF7227 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7218 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7219 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7221 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7223 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7225 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7227 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7220 AB) (AFB-REF7222 AFB)
                                            (IPIV-REF7224 IPIV) (C-REF7226 C)
                                            (WORK-REF7228 WORK)
                                            (IWORK-REF7229 IWORK))
      (%%DLA_GBRCOND TRANS N-REF7217 KL-REF7218 KU-REF7219 AB-REF7220
                     LDAB-REF7221 AFB-REF7222 LDAFB-REF7223 IPIV-REF7224
                     CMODE-REF7225 C-REF7226 INFO-REF7227 WORK-REF7228
                     IWORK-REF7229))))

(CFFI:DEFCFUN ("dla_gbrfsx_extended_" %%DLA_GBRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NRHS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_GBRFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N KL KU NRHS AB LDAB AFB LDAFB IPIV
                    COLEQU C B LDB Y LDY BERR_OUT N_NORMS ERR_BNDS_NORM
                    ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND ITHRESH RTHRESH DZ_UB
                    IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7230 ':INT32)
                              (TRANS_TYPE-REF7231 ':INT32) (N-REF7232 ':INT32)
                              (KL-REF7233 ':INT32) (KU-REF7234 ':INT32)
                              (NRHS-REF7235 ':INT32) (LDAB-REF7237 ':INT32)
                              (LDAFB-REF7239 ':INT32) (COLEQU-REF7241 ':INT32)
                              (LDB-REF7244 ':INT32) (LDY-REF7246 ':INT32)
                              (N_NORMS-REF7248 ':INT32)
                              (RCOND-REF7255 ':DOUBLE)
                              (ITHRESH-REF7256 ':INT32)
                              (RTHRESH-REF7257 ':DOUBLE)
                              (DZ_UB-REF7258 ':DOUBLE)
                              (IGNORE_CWISE-REF7259 ':INT32)
                              (INFO-REF7260 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7230 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7231 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7233 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7234 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7235 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7237 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7239 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7241 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7244 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7246 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7248 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7255 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7256 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7257 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7258 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7259 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7260 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7236 AB) (AFB-REF7238 AFB)
                                            (IPIV-REF7240 IPIV) (C-REF7242 C)
                                            (B-REF7243 B) (Y-REF7245 Y)
                                            (BERR_OUT-REF7247 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7249
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7250
                                             ERR_BNDS_COMP)
                                            (RES-REF7251 RES) (AYB-REF7252 AYB)
                                            (DY-REF7253 DY)
                                            (Y_TAIL-REF7254 Y_TAIL))
      (%%DLA_GBRFSX_EXTENDED PREC_TYPE-REF7230 TRANS_TYPE-REF7231 N-REF7232
                             KL-REF7233 KU-REF7234 NRHS-REF7235 AB-REF7236
                             LDAB-REF7237 AFB-REF7238 LDAFB-REF7239
                             IPIV-REF7240 COLEQU-REF7241 C-REF7242 B-REF7243
                             LDB-REF7244 Y-REF7245 LDY-REF7246 BERR_OUT-REF7247
                             N_NORMS-REF7248 ERR_BNDS_NORM-REF7249
                             ERR_BNDS_COMP-REF7250 RES-REF7251 AYB-REF7252
                             DY-REF7253 Y_TAIL-REF7254 RCOND-REF7255
                             ITHRESH-REF7256 RTHRESH-REF7257 DZ_UB-REF7258
                             IGNORE_CWISE-REF7259 INFO-REF7260))))

(CFFI:DEFCFUN ("dla_gbrpvgrw_" %%DLA_GBRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (NCOLS :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (AFB :POINTER)
  (LDAFB :POINTER))

(COMMON-LISP:DEFUN %DLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AFB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7261 ':INT32) (KL-REF7262 ':INT32)
                              (KU-REF7263 ':INT32) (NCOLS-REF7264 ':INT32)
                              (LDAB-REF7266 ':INT32) (LDAFB-REF7268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7262 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7263 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7264 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7266 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7268 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7265 AB) (AFB-REF7267 AFB))
      (%%DLA_GBRPVGRW N-REF7261 KL-REF7262 KU-REF7263 NCOLS-REF7264 AB-REF7265
                      LDAB-REF7266 AFB-REF7267 LDAFB-REF7268))))

(CFFI:DEFCFUN ("dla_geamv_" %%DLA_GEAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :POINTER)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DLA_GEAMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GEAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF7269 ':INT32) (M-REF7270 ':INT32)
                              (N-REF7271 ':INT32) (ALPHA-REF7272 ':DOUBLE)
                              (LDA-REF7274 ':INT32) (INCX-REF7276 ':INT32)
                              (BETA-REF7277 ':DOUBLE) (INCY-REF7279 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF7269 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7270 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7271 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7272 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7274 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7276 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7277 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7279 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7273 A) (X-REF7275 X)
                                            (Y-REF7278 Y))
      (%%DLA_GEAMV TRANS-REF7269 M-REF7270 N-REF7271 ALPHA-REF7272 A-REF7273
                   LDA-REF7274 X-REF7275 INCX-REF7276 BETA-REF7277 Y-REF7278
                   INCY-REF7279))))

(CFFI:DEFCFUN ("dla_gercond_" %%DLA_GERCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (TRANS :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_GERCOND
                   (TRANS N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7281 ':INT32) (LDA-REF7283 ':INT32)
                              (LDAF-REF7285 ':INT32) (CMODE-REF7287 ':INT32)
                              (INFO-REF7289 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7281 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7283 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7285 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7287 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7289 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7282 A) (AF-REF7284 AF)
                                            (IPIV-REF7286 IPIV) (C-REF7288 C)
                                            (WORK-REF7290 WORK)
                                            (IWORK-REF7291 IWORK))
      (%%DLA_GERCOND TRANS N-REF7281 A-REF7282 LDA-REF7283 AF-REF7284
                     LDAF-REF7285 IPIV-REF7286 CMODE-REF7287 C-REF7288
                     INFO-REF7289 WORK-REF7290 IWORK-REF7291))))

(CFFI:DEFCFUN ("dla_gerfsx_extended_" %%DLA_GERFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (TRANS_TYPE :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERRS_N :POINTER)
  (ERRS_C :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_GERFSX_EXTENDED
                   (PREC_TYPE TRANS_TYPE N NRHS A LDA AF LDAF IPIV COLEQU C B
                    LDB Y LDY BERR_OUT N_NORMS ERRS_N ERRS_C RES AYB DY Y_TAIL
                    RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        TRANS_TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERRS_C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7292 ':INT32)
                              (TRANS_TYPE-REF7293 ':INT32) (N-REF7294 ':INT32)
                              (NRHS-REF7295 ':INT32) (LDA-REF7297 ':INT32)
                              (LDAF-REF7299 ':INT32) (COLEQU-REF7301 ':INT32)
                              (LDB-REF7304 ':INT32) (LDY-REF7306 ':INT32)
                              (N_NORMS-REF7308 ':INT32)
                              (RCOND-REF7315 ':DOUBLE)
                              (ITHRESH-REF7316 ':INT32)
                              (RTHRESH-REF7317 ':DOUBLE)
                              (DZ_UB-REF7318 ':DOUBLE)
                              (IGNORE_CWISE-REF7319 ':INT32)
                              (INFO-REF7320 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7292 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS_TYPE-REF7293 :INT32) TRANS_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7294 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7295 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7297 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7299 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7301 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7304 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7306 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7308 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7315 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7316 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7317 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7318 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7319 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7320 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7296 A) (AF-REF7298 AF)
                                            (IPIV-REF7300 IPIV) (C-REF7302 C)
                                            (B-REF7303 B) (Y-REF7305 Y)
                                            (BERR_OUT-REF7307 BERR_OUT)
                                            (ERRS_N-REF7309 ERRS_N)
                                            (ERRS_C-REF7310 ERRS_C)
                                            (RES-REF7311 RES) (AYB-REF7312 AYB)
                                            (DY-REF7313 DY)
                                            (Y_TAIL-REF7314 Y_TAIL))
      (%%DLA_GERFSX_EXTENDED PREC_TYPE-REF7292 TRANS_TYPE-REF7293 N-REF7294
                             NRHS-REF7295 A-REF7296 LDA-REF7297 AF-REF7298
                             LDAF-REF7299 IPIV-REF7300 COLEQU-REF7301 C-REF7302
                             B-REF7303 LDB-REF7304 Y-REF7305 LDY-REF7306
                             BERR_OUT-REF7307 N_NORMS-REF7308 ERRS_N-REF7309
                             ERRS_C-REF7310 RES-REF7311 AYB-REF7312 DY-REF7313
                             Y_TAIL-REF7314 RCOND-REF7315 ITHRESH-REF7316
                             RTHRESH-REF7317 DZ_UB-REF7318 IGNORE_CWISE-REF7319
                             INFO-REF7320))))

(CFFI:DEFCFUN ("dla_gerpvgrw_" %%DLA_GERPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (N :POINTER)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER))

(COMMON-LISP:DEFUN %DLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GERPVGRW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7321 ':INT32) (NCOLS-REF7322 ':INT32)
                              (LDA-REF7324 ':INT32) (LDAF-REF7326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7321 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7322 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7324 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7326 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7323 A) (AF-REF7325 AF))
      (%%DLA_GERPVGRW N-REF7321 NCOLS-REF7322 A-REF7323 LDA-REF7324 AF-REF7325
                      LDAF-REF7326))))

(CFFI:DEFCFUN ("dla_lin_berr_" %%DLA_LIN_BERR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (NZ :POINTER)
  (NRHS :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (BERR :POINTER))

(COMMON-LISP:DEFUN %DLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_LIN_BERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7327 ':INT32) (NZ-REF7328 ':INT32)
                              (NRHS-REF7329 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7327 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF7328 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7329 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF7330 RES) (AYB-REF7331 AYB)
                                            (BERR-REF7332 BERR))
      (%%DLA_LIN_BERR N-REF7327 NZ-REF7328 NRHS-REF7329 RES-REF7330 AYB-REF7331
                      BERR-REF7332))))

(CFFI:DEFCFUN ("dla_porcond_" %%DLA_PORCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_PORCOND (UPLO N A LDA AF LDAF CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7334 ':INT32) (LDA-REF7336 ':INT32)
                              (LDAF-REF7338 ':INT32) (CMODE-REF7339 ':INT32)
                              (INFO-REF7341 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7334 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7336 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7338 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7339 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7341 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7335 A) (AF-REF7337 AF)
                                            (C-REF7340 C) (WORK-REF7342 WORK)
                                            (IWORK-REF7343 IWORK))
      (%%DLA_PORCOND UPLO N-REF7334 A-REF7335 LDA-REF7336 AF-REF7337
                     LDAF-REF7338 CMODE-REF7339 C-REF7340 INFO-REF7341
                     WORK-REF7342 IWORK-REF7343))))

(CFFI:DEFCFUN ("dla_porfsx_extended_" %%DLA_PORFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_PORFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY
                    BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7344 ':INT32) (N-REF7346 ':INT32)
                              (NRHS-REF7347 ':INT32) (LDA-REF7349 ':INT32)
                              (LDAF-REF7351 ':INT32) (COLEQU-REF7352 ':INT32)
                              (LDB-REF7355 ':INT32) (LDY-REF7357 ':INT32)
                              (N_NORMS-REF7359 ':INT32)
                              (RCOND-REF7366 ':DOUBLE)
                              (ITHRESH-REF7367 ':INT32)
                              (RTHRESH-REF7368 ':DOUBLE)
                              (DZ_UB-REF7369 ':DOUBLE)
                              (IGNORE_CWISE-REF7370 ':INT32)
                              (INFO-REF7371 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7344 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7346 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7347 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7349 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7351 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7352 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7355 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7357 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7359 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7366 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7367 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7368 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7369 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7370 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7371 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7348 A) (AF-REF7350 AF)
                                            (C-REF7353 C) (B-REF7354 B)
                                            (Y-REF7356 Y)
                                            (BERR_OUT-REF7358 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7360
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7361
                                             ERR_BNDS_COMP)
                                            (RES-REF7362 RES) (AYB-REF7363 AYB)
                                            (DY-REF7364 DY)
                                            (Y_TAIL-REF7365 Y_TAIL))
      (%%DLA_PORFSX_EXTENDED PREC_TYPE-REF7344 UPLO N-REF7346 NRHS-REF7347
                             A-REF7348 LDA-REF7349 AF-REF7350 LDAF-REF7351
                             COLEQU-REF7352 C-REF7353 B-REF7354 LDB-REF7355
                             Y-REF7356 LDY-REF7357 BERR_OUT-REF7358
                             N_NORMS-REF7359 ERR_BNDS_NORM-REF7360
                             ERR_BNDS_COMP-REF7361 RES-REF7362 AYB-REF7363
                             DY-REF7364 Y_TAIL-REF7365 RCOND-REF7366
                             ITHRESH-REF7367 RTHRESH-REF7368 DZ_UB-REF7369
                             IGNORE_CWISE-REF7370 INFO-REF7371))))

(CFFI:DEFCFUN ("dla_porpvgrw_" %%DLA_PORPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (NCOLS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_PORPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF7373 ':INT32) (LDA-REF7375 ':INT32)
                              (LDAF-REF7377 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF7373 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7375 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7377 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7374 A) (AF-REF7376 AF)
                                            (WORK-REF7378 WORK))
      (%%DLA_PORPVGRW UPLO NCOLS-REF7373 A-REF7374 LDA-REF7375 AF-REF7376
                      LDAF-REF7377 WORK-REF7378))))

(CFFI:DEFCFUN ("dla_syamv_" %%DLA_SYAMV :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYAMV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF7379 ':INT32) (N-REF7380 ':INT32)
                              (ALPHA-REF7381 ':DOUBLE) (LDA-REF7383 ':INT32)
                              (INCX-REF7385 ':INT32) (BETA-REF7386 ':DOUBLE)
                              (INCY-REF7388 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF7379 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7380 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7381 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7383 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF7385 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7386 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF7388 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7382 A) (X-REF7384 X)
                                            (Y-REF7387 Y))
      (%%DLA_SYAMV UPLO-REF7379 N-REF7380 ALPHA-REF7381 A-REF7382 LDA-REF7383
                   X-REF7384 INCX-REF7385 BETA-REF7386 Y-REF7387
                   INCY-REF7388))))

(CFFI:DEFCFUN ("dla_syrcond_" %%DLA_SYRCOND :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (CMODE :POINTER)
  (C :POINTER)
  (INFO :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER))

(COMMON-LISP:DEFUN %DLA_SYRCOND
                   (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7390 ':INT32) (LDA-REF7392 ':INT32)
                              (LDAF-REF7394 ':INT32) (CMODE-REF7396 ':INT32)
                              (INFO-REF7398 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7390 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7392 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7394 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF7396 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7398 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7391 A) (AF-REF7393 AF)
                                            (IPIV-REF7395 IPIV) (C-REF7397 C)
                                            (WORK-REF7399 WORK)
                                            (IWORK-REF7400 IWORK))
      (%%DLA_SYRCOND UPLO N-REF7390 A-REF7391 LDA-REF7392 AF-REF7393
                     LDAF-REF7394 IPIV-REF7395 CMODE-REF7396 C-REF7397
                     INFO-REF7398 WORK-REF7399 IWORK-REF7400))))

(CFFI:DEFCFUN ("dla_syrfsx_extended_" %%DLA_SYRFSX_EXTENDED :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (PREC_TYPE :POINTER)
  (UPLO :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (COLEQU :POINTER)
  (C :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (Y :POINTER)
  (LDY :POINTER)
  (BERR_OUT :POINTER)
  (N_NORMS :POINTER)
  (ERR_BNDS_NORM :POINTER)
  (ERR_BNDS_COMP :POINTER)
  (RES :POINTER)
  (AYB :POINTER)
  (DY :POINTER)
  (Y_TAIL :POINTER)
  (RCOND :POINTER)
  (ITHRESH :POINTER)
  (RTHRESH :POINTER)
  (DZ_UB :POINTER)
  (IGNORE_CWISE :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLA_SYRFSX_EXTENDED
                   (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y
                    LDY BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY
                    Y_TAIL RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRFSX_EXTENDED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        PREC_TYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BERR_OUT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_NORM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ERR_BNDS_COMP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        RES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AYB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        Y_TAIL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        IGNORE_CWISE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7401 ':INT32) (N-REF7403 ':INT32)
                              (NRHS-REF7404 ':INT32) (LDA-REF7406 ':INT32)
                              (LDAF-REF7408 ':INT32) (COLEQU-REF7410 ':INT32)
                              (LDB-REF7413 ':INT32) (LDY-REF7415 ':INT32)
                              (N_NORMS-REF7417 ':INT32)
                              (RCOND-REF7424 ':DOUBLE)
                              (ITHRESH-REF7425 ':INT32)
                              (RTHRESH-REF7426 ':DOUBLE)
                              (DZ_UB-REF7427 ':DOUBLE)
                              (IGNORE_CWISE-REF7428 ':INT32)
                              (INFO-REF7429 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7401 :INT32) PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7403 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7404 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7406 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7408 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7410 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7413 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7415 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7417 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7424 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7425 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7426 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7427 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7428 :INT32) IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7429 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7405 A) (AF-REF7407 AF)
                                            (IPIV-REF7409 IPIV) (C-REF7411 C)
                                            (B-REF7412 B) (Y-REF7414 Y)
                                            (BERR_OUT-REF7416 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7418
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7419
                                             ERR_BNDS_COMP)
                                            (RES-REF7420 RES) (AYB-REF7421 AYB)
                                            (DY-REF7422 DY)
                                            (Y_TAIL-REF7423 Y_TAIL))
      (%%DLA_SYRFSX_EXTENDED PREC_TYPE-REF7401 UPLO N-REF7403 NRHS-REF7404
                             A-REF7405 LDA-REF7406 AF-REF7407 LDAF-REF7408
                             IPIV-REF7409 COLEQU-REF7410 C-REF7411 B-REF7412
                             LDB-REF7413 Y-REF7414 LDY-REF7415 BERR_OUT-REF7416
                             N_NORMS-REF7417 ERR_BNDS_NORM-REF7418
                             ERR_BNDS_COMP-REF7419 RES-REF7420 AYB-REF7421
                             DY-REF7422 Y_TAIL-REF7423 RCOND-REF7424
                             ITHRESH-REF7425 RTHRESH-REF7426 DZ_UB-REF7427
                             IGNORE_CWISE-REF7428 INFO-REF7429))))

(CFFI:DEFCFUN ("dla_syrpvgrw_" %%DLA_SYRPVGRW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (UPLO :STRING)
  (N :POINTER)
  (INFO :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (AF :POINTER)
  (LDAF :POINTER)
  (IPIV :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRPVGRW)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IPIV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7431 ':INT32) (INFO-REF7432 ':INT32)
                              (LDA-REF7434 ':INT32) (LDAF-REF7436 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7431 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7432 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7434 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7436 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7433 A) (AF-REF7435 AF)
                                            (IPIV-REF7437 IPIV)
                                            (WORK-REF7438 WORK))
      (%%DLA_SYRPVGRW UPLO N-REF7431 INFO-REF7432 A-REF7433 LDA-REF7434
                      AF-REF7435 LDAF-REF7436 IPIV-REF7437 WORK-REF7438))))

(CFFI:DEFCFUN ("dla_wwaddw_" %%DLA_WWADDW :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (W :POINTER))

(COMMON-LISP:DEFUN %DLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_WWADDW)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7439 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7440 X) (Y-REF7441 Y)
                                            (W-REF7442 W))
      (%%DLA_WWADDW N-REF7439 X-REF7440 Y-REF7441 W-REF7442))))

(CFFI:DEFCFUN ("dlabad_" %%DLABAD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SMALL :POINTER)
  (LARGE :POINTER))

(COMMON-LISP:DEFUN %DLABAD (SMALL LARGE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABAD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMALL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LARGE))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMALL-REF7443 ':DOUBLE) (LARGE-REF7444 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMALL-REF7443 :DOUBLE) SMALL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LARGE-REF7444 :DOUBLE) LARGE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLABAD SMALL-REF7443 LARGE-REF7444))))

(CFFI:DEFCFUN ("dlabrd_" %%DLABRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D :POINTER)
  (E :POINTER)
  (TAUQ :POINTER)
  (TAUP :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %DLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLABRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAUP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7445 ':INT32) (N-REF7446 ':INT32)
                              (NB-REF7447 ':INT32) (LDA-REF7449 ':INT32)
                              (LDX-REF7455 ':INT32) (LDY-REF7457 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7445 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7446 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7447 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7449 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7455 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7457 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7448 A) (D-REF7450 D)
                                            (E-REF7451 E) (TAUQ-REF7452 TAUQ)
                                            (TAUP-REF7453 TAUP) (X-REF7454 X)
                                            (Y-REF7456 Y))
      (%%DLABRD M-REF7445 N-REF7446 NB-REF7447 A-REF7448 LDA-REF7449 D-REF7450
                E-REF7451 TAUQ-REF7452 TAUP-REF7453 X-REF7454 LDX-REF7455
                Y-REF7456 LDY-REF7457))))

(CFFI:DEFCFUN ("dlacn2_" %%DLACN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER)
  (ISAVE :POINTER))

(COMMON-LISP:DEFUN %DLACN2 (N V X ISGN EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7458 ':INT32) (EST-REF7462 ':DOUBLE)
                              (KASE-REF7463 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7462 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7463 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7459 V) (X-REF7460 X)
                                            (ISGN-REF7461 ISGN)
                                            (ISAVE-REF7464 ISAVE))
      (%%DLACN2 N-REF7458 V-REF7459 X-REF7460 ISGN-REF7461 EST-REF7462
                KASE-REF7463 ISAVE-REF7464))))

(CFFI:DEFCFUN ("dlacon_" %%DLACON :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (V :POINTER)
  (X :POINTER)
  (ISGN :POINTER)
  (EST :POINTER)
  (KASE :POINTER))

(COMMON-LISP:DEFUN %DLACON (N V X ISGN EST KASE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACON)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISGN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7465 ':INT32) (EST-REF7469 ':DOUBLE)
                              (KASE-REF7470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7465 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF7469 :DOUBLE) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF7470 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF7466 V) (X-REF7467 X)
                                            (ISGN-REF7468 ISGN))
      (%%DLACON N-REF7465 V-REF7466 X-REF7467 ISGN-REF7468 EST-REF7469
                KASE-REF7470))))

(CFFI:DEFCFUN ("dlacpy_" %%DLACPY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DLACPY (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLACPY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7472 ':INT32) (N-REF7473 ':INT32)
                              (LDA-REF7475 ':INT32) (LDB-REF7477 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7472 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7473 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7475 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7477 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7474 A) (B-REF7476 B))
      (%%DLACPY UPLO M-REF7472 N-REF7473 A-REF7474 LDA-REF7475 B-REF7476
                LDB-REF7477))))

(CFFI:DEFCFUN ("dladiv_" %%DLADIV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (P :POINTER)
  (Q :POINTER))

(COMMON-LISP:DEFUN %DLADIV (A B C D P Q)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLADIV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT P)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Q))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7478 ':DOUBLE) (B-REF7479 ':DOUBLE)
                              (C-REF7480 ':DOUBLE) (D-REF7481 ':DOUBLE)
                              (P-REF7482 ':DOUBLE) (Q-REF7483 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7478 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7479 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7480 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7481 :DOUBLE) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7482 :DOUBLE) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7483 :DOUBLE) Q)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLADIV A-REF7478 B-REF7479 C-REF7480 D-REF7481 P-REF7482 Q-REF7483))))

(CFFI:DEFCFUN ("dlae2_" %%DLAE2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER))

(COMMON-LISP:DEFUN %DLAE2 (A B C RT1 RT2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAE2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7484 ':DOUBLE) (B-REF7485 ':DOUBLE)
                              (C-REF7486 ':DOUBLE) (RT1-REF7487 ':DOUBLE)
                              (RT2-REF7488 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7484 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7485 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7486 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7487 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7488 :DOUBLE) RT2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAE2 A-REF7484 B-REF7485 C-REF7486 RT1-REF7487 RT2-REF7488))))

(CFFI:DEFCFUN ("dlaebz_" %%DLAEBZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IJOB :POINTER)
  (NITMAX :POINTER)
  (N :POINTER)
  (MMAX :POINTER)
  (MINP :POINTER)
  (NBMIN :POINTER)
  (ABSTOL :POINTER)
  (RELTOL :POINTER)
  (PIVMIN :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (NVAL :POINTER)
  (AB :POINTER)
  (C :POINTER)
  (MOUT :POINTER)
  (NAB :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEBZ
                   (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2
                    NVAL AB C MOUT NAB WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEBZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NVAL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7489 ':INT32) (NITMAX-REF7490 ':INT32)
                              (N-REF7491 ':INT32) (MMAX-REF7492 ':INT32)
                              (MINP-REF7493 ':INT32) (NBMIN-REF7494 ':INT32)
                              (ABSTOL-REF7495 ':DOUBLE)
                              (RELTOL-REF7496 ':DOUBLE)
                              (PIVMIN-REF7497 ':DOUBLE) (MOUT-REF7504 ':INT32)
                              (INFO-REF7508 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7489 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF7490 :INT32) NITMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7491 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF7492 :INT32) MMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF7493 :INT32) MINP)
    (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF7494 :INT32) NBMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7495 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF7496 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7497 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF7504 :INT32) MOUT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7508 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7498 D) (E-REF7499 E)
                                            (E2-REF7500 E2) (NVAL-REF7501 NVAL)
                                            (AB-REF7502 AB) (C-REF7503 C)
                                            (NAB-REF7505 NAB)
                                            (WORK-REF7506 WORK)
                                            (IWORK-REF7507 IWORK))
      (%%DLAEBZ IJOB-REF7489 NITMAX-REF7490 N-REF7491 MMAX-REF7492 MINP-REF7493
                NBMIN-REF7494 ABSTOL-REF7495 RELTOL-REF7496 PIVMIN-REF7497
                D-REF7498 E-REF7499 E2-REF7500 NVAL-REF7501 AB-REF7502
                C-REF7503 MOUT-REF7504 NAB-REF7505 WORK-REF7506 IWORK-REF7507
                INFO-REF7508))))

(CFFI:DEFCFUN ("dlaed0_" %%DLAED0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (QSIZ :POINTER)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (QSTORE :POINTER)
  (LDQS :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED0
                   (ICOMPQ QSIZ N D E Q LDQ QSTORE LDQS WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7509 ':INT32) (QSIZ-REF7510 ':INT32)
                              (N-REF7511 ':INT32) (LDQ-REF7515 ':INT32)
                              (LDQS-REF7517 ':INT32) (INFO-REF7520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7509 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7510 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7511 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7515 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQS-REF7517 :INT32) LDQS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7520 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7512 D) (E-REF7513 E)
                                            (Q-REF7514 Q)
                                            (QSTORE-REF7516 QSTORE)
                                            (WORK-REF7518 WORK)
                                            (IWORK-REF7519 IWORK))
      (%%DLAED0 ICOMPQ-REF7509 QSIZ-REF7510 N-REF7511 D-REF7512 E-REF7513
                Q-REF7514 LDQ-REF7515 QSTORE-REF7516 LDQS-REF7517 WORK-REF7518
                IWORK-REF7519 INFO-REF7520))))

(CFFI:DEFCFUN ("dlaed1_" %%DLAED1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED1 (N D Q LDQ INDXQ RHO CUTPNT WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7521 ':INT32) (LDQ-REF7524 ':INT32)
                              (RHO-REF7526 ':DOUBLE) (CUTPNT-REF7527 ':INT32)
                              (INFO-REF7530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7521 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7524 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7526 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7527 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7522 D) (Q-REF7523 Q)
                                            (INDXQ-REF7525 INDXQ)
                                            (WORK-REF7528 WORK)
                                            (IWORK-REF7529 IWORK))
      (%%DLAED1 N-REF7521 D-REF7522 Q-REF7523 LDQ-REF7524 INDXQ-REF7525
                RHO-REF7526 CUTPNT-REF7527 WORK-REF7528 IWORK-REF7529
                INFO-REF7530))))

(CFFI:DEFCFUN ("dlaed2_" %%DLAED2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (INDXC :POINTER)
  (INDXP :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED2
                   (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP
                    COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7531 ':INT32) (N-REF7532 ':INT32)
                              (N1-REF7533 ':INT32) (LDQ-REF7536 ':INT32)
                              (RHO-REF7538 ':DOUBLE) (INFO-REF7547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7531 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7533 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7536 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7538 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7534 D) (Q-REF7535 Q)
                                            (INDXQ-REF7537 INDXQ) (Z-REF7539 Z)
                                            (DLAMDA-REF7540 DLAMDA)
                                            (W-REF7541 W) (Q2-REF7542 Q2)
                                            (INDX-REF7543 INDX)
                                            (INDXC-REF7544 INDXC)
                                            (INDXP-REF7545 INDXP)
                                            (COLTYP-REF7546 COLTYP))
      (%%DLAED2 K-REF7531 N-REF7532 N1-REF7533 D-REF7534 Q-REF7535 LDQ-REF7536
                INDXQ-REF7537 RHO-REF7538 Z-REF7539 DLAMDA-REF7540 W-REF7541
                Q2-REF7542 INDX-REF7543 INDXC-REF7544 INDXP-REF7545
                COLTYP-REF7546 INFO-REF7547))))

(CFFI:DEFCFUN ("dlaed3_" %%DLAED3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (N :POINTER)
  (N1 :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (INDX :POINTER)
  (CTOT :POINTER)
  (W :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED3 (K N N1 D Q LDQ RHO DLAMDA Q2 INDX CTOT W S INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7548 ':INT32) (N-REF7549 ':INT32)
                              (N1-REF7550 ':INT32) (LDQ-REF7553 ':INT32)
                              (RHO-REF7554 ':DOUBLE) (INFO-REF7561 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7548 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7549 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7550 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7553 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7554 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7561 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7551 D) (Q-REF7552 Q)
                                            (DLAMDA-REF7555 DLAMDA)
                                            (Q2-REF7556 Q2) (INDX-REF7557 INDX)
                                            (CTOT-REF7558 CTOT) (W-REF7559 W)
                                            (S-REF7560 S))
      (%%DLAED3 K-REF7548 N-REF7549 N1-REF7550 D-REF7551 Q-REF7552 LDQ-REF7553
                RHO-REF7554 DLAMDA-REF7555 Q2-REF7556 INDX-REF7557 CTOT-REF7558
                W-REF7559 S-REF7560 INFO-REF7561))))

(CFFI:DEFCFUN ("dlaed4_" %%DLAED4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED4 (N I D Z DELTA RHO DLAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7562 ':INT32) (I-REF7563 ':INT32)
                              (RHO-REF7567 ':DOUBLE) (DLAM-REF7568 ':DOUBLE)
                              (INFO-REF7569 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7562 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7563 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7567 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7568 :DOUBLE) DLAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7569 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7564 D) (Z-REF7565 Z)
                                            (DELTA-REF7566 DELTA))
      (%%DLAED4 N-REF7562 I-REF7563 D-REF7564 Z-REF7565 DELTA-REF7566
                RHO-REF7567 DLAM-REF7568 INFO-REF7569))))

(CFFI:DEFCFUN ("dlaed5_" %%DLAED5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DLAM :POINTER))

(COMMON-LISP:DEFUN %DLAED5 (I D Z DELTA RHO DLAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DLAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF7570 ':INT32) (RHO-REF7574 ':DOUBLE)
                              (DLAM-REF7575 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF7570 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7574 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF7575 :DOUBLE) DLAM)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7571 D) (Z-REF7572 Z)
                                            (DELTA-REF7573 DELTA))
      (%%DLAED5 I-REF7570 D-REF7571 Z-REF7572 DELTA-REF7573 RHO-REF7574
                DLAM-REF7575))))

(CFFI:DEFCFUN ("dlaed6_" %%DLAED6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (KNITER :POINTER)
  (ORGATI :POINTER)
  (RHO :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (FINIT :POINTER)
  (TAU :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED6 (KNITER ORGATI RHO D Z FINIT TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KNITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ORGATI)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT FINIT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF7576 ':INT32) (ORGATI-REF7577 ':INT32)
                              (RHO-REF7578 ':DOUBLE) (FINIT-REF7581 ':DOUBLE)
                              (TAU-REF7582 ':DOUBLE) (INFO-REF7583 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF7576 :INT32) KNITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF7577 :INT32) ORGATI)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7578 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF7581 :DOUBLE) FINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF7582 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7583 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7579 D) (Z-REF7580 Z))
      (%%DLAED6 KNITER-REF7576 ORGATI-REF7577 RHO-REF7578 D-REF7579 Z-REF7580
                FINIT-REF7581 TAU-REF7582 INFO-REF7583))))

(CFFI:DEFCFUN ("dlaed7_" %%DLAED7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (QSTORE :POINTER)
  (QPTR :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED7
                   (ICOMPQ N QSIZ TLVLS CURLVL CURPBM D Q LDQ INDXQ RHO CUTPNT
                    QSTORE QPTR PRMPTR PERM GIVPTR GIVCOL GIVNUM WORK IWORK
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        QSTORE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7584 ':INT32) (N-REF7585 ':INT32)
                              (QSIZ-REF7586 ':INT32) (TLVLS-REF7587 ':INT32)
                              (CURLVL-REF7588 ':INT32) (CURPBM-REF7589 ':INT32)
                              (LDQ-REF7592 ':INT32) (RHO-REF7594 ':DOUBLE)
                              (CUTPNT-REF7595 ':INT32) (INFO-REF7605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7584 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7585 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7586 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7587 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7588 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7589 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7592 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7594 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7595 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7590 D) (Q-REF7591 Q)
                                            (INDXQ-REF7593 INDXQ)
                                            (QSTORE-REF7596 QSTORE)
                                            (QPTR-REF7597 QPTR)
                                            (PRMPTR-REF7598 PRMPTR)
                                            (PERM-REF7599 PERM)
                                            (GIVPTR-REF7600 GIVPTR)
                                            (GIVCOL-REF7601 GIVCOL)
                                            (GIVNUM-REF7602 GIVNUM)
                                            (WORK-REF7603 WORK)
                                            (IWORK-REF7604 IWORK))
      (%%DLAED7 ICOMPQ-REF7584 N-REF7585 QSIZ-REF7586 TLVLS-REF7587
                CURLVL-REF7588 CURPBM-REF7589 D-REF7590 Q-REF7591 LDQ-REF7592
                INDXQ-REF7593 RHO-REF7594 CUTPNT-REF7595 QSTORE-REF7596
                QPTR-REF7597 PRMPTR-REF7598 PERM-REF7599 GIVPTR-REF7600
                GIVCOL-REF7601 GIVNUM-REF7602 WORK-REF7603 IWORK-REF7604
                INFO-REF7605))))

(CFFI:DEFCFUN ("dlaed8_" %%DLAED8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (N :POINTER)
  (QSIZ :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (INDXQ :POINTER)
  (RHO :POINTER)
  (CUTPNT :POINTER)
  (Z :POINTER)
  (DLAMDA :POINTER)
  (Q2 :POINTER)
  (LDQ2 :POINTER)
  (W :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (INDXP :POINTER)
  (INDX :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED8
                   (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W
                    PERM GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7606 ':INT32) (K-REF7607 ':INT32)
                              (N-REF7608 ':INT32) (QSIZ-REF7609 ':INT32)
                              (LDQ-REF7612 ':INT32) (RHO-REF7614 ':DOUBLE)
                              (CUTPNT-REF7615 ':INT32) (LDQ2-REF7619 ':INT32)
                              (GIVPTR-REF7622 ':INT32) (INFO-REF7627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7606 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7607 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7608 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7609 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7612 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7614 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7615 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF7619 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7622 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7610 D) (Q-REF7611 Q)
                                            (INDXQ-REF7613 INDXQ) (Z-REF7616 Z)
                                            (DLAMDA-REF7617 DLAMDA)
                                            (Q2-REF7618 Q2) (W-REF7620 W)
                                            (PERM-REF7621 PERM)
                                            (GIVCOL-REF7623 GIVCOL)
                                            (GIVNUM-REF7624 GIVNUM)
                                            (INDXP-REF7625 INDXP)
                                            (INDX-REF7626 INDX))
      (%%DLAED8 ICOMPQ-REF7606 K-REF7607 N-REF7608 QSIZ-REF7609 D-REF7610
                Q-REF7611 LDQ-REF7612 INDXQ-REF7613 RHO-REF7614 CUTPNT-REF7615
                Z-REF7616 DLAMDA-REF7617 Q2-REF7618 LDQ2-REF7619 W-REF7620
                PERM-REF7621 GIVPTR-REF7622 GIVCOL-REF7623 GIVNUM-REF7624
                INDXP-REF7625 INDX-REF7626 INFO-REF7627))))

(CFFI:DEFCFUN ("dlaed9_" %%DLAED9 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (K :POINTER)
  (KSTART :POINTER)
  (KSTOP :POINTER)
  (N :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (RHO :POINTER)
  (DLAMDA :POINTER)
  (W :POINTER)
  (S :POINTER)
  (LDS :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAED9 (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED9)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DLAMDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF7628 ':INT32) (KSTART-REF7629 ':INT32)
                              (KSTOP-REF7630 ':INT32) (N-REF7631 ':INT32)
                              (LDQ-REF7634 ':INT32) (RHO-REF7635 ':DOUBLE)
                              (LDS-REF7639 ':INT32) (INFO-REF7640 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7628 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF7629 :INT32) KSTART)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF7630 :INT32) KSTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7631 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7634 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7635 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF7639 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7640 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7632 D) (Q-REF7633 Q)
                                            (DLAMDA-REF7636 DLAMDA)
                                            (W-REF7637 W) (S-REF7638 S))
      (%%DLAED9 K-REF7628 KSTART-REF7629 KSTOP-REF7630 N-REF7631 D-REF7632
                Q-REF7633 LDQ-REF7634 RHO-REF7635 DLAMDA-REF7636 W-REF7637
                S-REF7638 LDS-REF7639 INFO-REF7640))))

(CFFI:DEFCFUN ("dlaeda_" %%DLAEDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (TLVLS :POINTER)
  (CURLVL :POINTER)
  (CURPBM :POINTER)
  (PRMPTR :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (GIVNUM :POINTER)
  (Q :POINTER)
  (QPTR :POINTER)
  (Z :POINTER)
  (ZTEMP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEDA
                   (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q
                    QPTR Z ZTEMP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PRMPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        QPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ZTEMP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7641 ':INT32) (TLVLS-REF7642 ':INT32)
                              (CURLVL-REF7643 ':INT32) (CURPBM-REF7644 ':INT32)
                              (INFO-REF7654 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7641 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7642 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7643 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7644 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7654 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF7645 PRMPTR)
                                            (PERM-REF7646 PERM)
                                            (GIVPTR-REF7647 GIVPTR)
                                            (GIVCOL-REF7648 GIVCOL)
                                            (GIVNUM-REF7649 GIVNUM)
                                            (Q-REF7650 Q) (QPTR-REF7651 QPTR)
                                            (Z-REF7652 Z) (ZTEMP-REF7653 ZTEMP))
      (%%DLAEDA N-REF7641 TLVLS-REF7642 CURLVL-REF7643 CURPBM-REF7644
                PRMPTR-REF7645 PERM-REF7646 GIVPTR-REF7647 GIVCOL-REF7648
                GIVNUM-REF7649 Q-REF7650 QPTR-REF7651 Z-REF7652 ZTEMP-REF7653
                INFO-REF7654))))

(CFFI:DEFCFUN ("dlaein_" %%DLAEIN :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RIGHTV :POINTER)
  (NOINIT :POINTER)
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (VR :POINTER)
  (VI :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WORK :POINTER)
  (EPS3 :POINTER)
  (SMLNUM :POINTER)
  (BIGNUM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEIN
                   (RIGHTV NOINIT N H LDH WR WI VR VI B LDB WORK EPS3 SMLNUM
                    BIGNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BIGNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF7655 ':INT32) (NOINIT-REF7656 ':INT32)
                              (N-REF7657 ':INT32) (LDH-REF7659 ':INT32)
                              (WR-REF7660 ':DOUBLE) (WI-REF7661 ':DOUBLE)
                              (LDB-REF7665 ':INT32) (EPS3-REF7667 ':DOUBLE)
                              (SMLNUM-REF7668 ':DOUBLE)
                              (BIGNUM-REF7669 ':DOUBLE) (INFO-REF7670 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF7655 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF7656 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7657 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7659 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7660 :DOUBLE) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7661 :DOUBLE) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7665 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF7667 :DOUBLE) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF7668 :DOUBLE) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BIGNUM-REF7669 :DOUBLE) BIGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7670 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7658 H) (VR-REF7662 VR)
                                            (VI-REF7663 VI) (B-REF7664 B)
                                            (WORK-REF7666 WORK))
      (%%DLAEIN RIGHTV-REF7655 NOINIT-REF7656 N-REF7657 H-REF7658 LDH-REF7659
                WR-REF7660 WI-REF7661 VR-REF7662 VI-REF7663 B-REF7664
                LDB-REF7665 WORK-REF7666 EPS3-REF7667 SMLNUM-REF7668
                BIGNUM-REF7669 INFO-REF7670))))

(CFFI:DEFCFUN ("dlaev2_" %%DLAEV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (RT1 :POINTER)
  (RT2 :POINTER)
  (CS1 :POINTER)
  (SN1 :POINTER))

(COMMON-LISP:DEFUN %DLAEV2 (A B C RT1 RT2 CS1 SN1)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEV2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN1))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7671 ':DOUBLE) (B-REF7672 ':DOUBLE)
                              (C-REF7673 ':DOUBLE) (RT1-REF7674 ':DOUBLE)
                              (RT2-REF7675 ':DOUBLE) (CS1-REF7676 ':DOUBLE)
                              (SN1-REF7677 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7671 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7672 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7673 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1-REF7674 :DOUBLE) RT1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2-REF7675 :DOUBLE) RT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS1-REF7676 :DOUBLE) CS1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN1-REF7677 :DOUBLE) SN1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAEV2 A-REF7671 B-REF7672 C-REF7673 RT1-REF7674 RT2-REF7675
                CS1-REF7676 SN1-REF7677))))

(CFFI:DEFCFUN ("dlaexc_" %%DLAEXC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTQ :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (J1 :POINTER)
  (N1 :POINTER)
  (N2 :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAEXC (WANTQ N T LDT Q LDQ J1 N1 N2 WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEXC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF7678 ':INT32) (N-REF7679 ':INT32)
                              (LDT-REF7681 ':INT32) (LDQ-REF7683 ':INT32)
                              (J1-REF7684 ':INT32) (N1-REF7685 ':INT32)
                              (N2-REF7686 ':INT32) (INFO-REF7688 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF7678 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7681 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7683 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF7684 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7685 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7686 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7688 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF7680 T) (Q-REF7682 Q)
                                            (WORK-REF7687 WORK))
      (%%DLAEXC WANTQ-REF7678 N-REF7679 T-REF7680 LDT-REF7681 Q-REF7682
                LDQ-REF7683 J1-REF7684 N1-REF7685 N2-REF7686 WORK-REF7687
                INFO-REF7688))))

(CFFI:DEFCFUN ("dlag2_" %%DLAG2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (SAFMIN :POINTER)
  (SCALE1 :POINTER)
  (SCALE2 :POINTER)
  (WR1 :POINTER)
  (WR2 :POINTER)
  (WI :POINTER))

(COMMON-LISP:DEFUN %DLAG2 (A LDA B LDB SAFMIN SCALE1 SCALE2 WR1 WR2 WI)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SAFMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7690 ':INT32) (LDB-REF7692 ':INT32)
                              (SAFMIN-REF7693 ':DOUBLE)
                              (SCALE1-REF7694 ':DOUBLE)
                              (SCALE2-REF7695 ':DOUBLE) (WR1-REF7696 ':DOUBLE)
                              (WR2-REF7697 ':DOUBLE) (WI-REF7698 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7690 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7692 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SAFMIN-REF7693 :DOUBLE) SAFMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE1-REF7694 :DOUBLE) SCALE1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE2-REF7695 :DOUBLE) SCALE2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR1-REF7696 :DOUBLE) WR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR2-REF7697 :DOUBLE) WR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7698 :DOUBLE) WI)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7689 A) (B-REF7691 B))
      (%%DLAG2 A-REF7689 LDA-REF7690 B-REF7691 LDB-REF7692 SAFMIN-REF7693
               SCALE1-REF7694 SCALE2-REF7695 WR1-REF7696 WR2-REF7697
               WI-REF7698))))

(CFFI:DEFCFUN ("dlag2s_" %%DLAG2S :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (SA :POINTER)
  (LDSA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAG2S (M N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAG2S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7699 ':INT32) (N-REF7700 ':INT32)
                              (LDA-REF7702 ':INT32) (LDSA-REF7704 ':INT32)
                              (INFO-REF7705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7700 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7702 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7704 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7701 A) (SA-REF7703 SA))
      (%%DLAG2S M-REF7699 N-REF7700 A-REF7701 LDA-REF7702 SA-REF7703
                LDSA-REF7704 INFO-REF7705))))

(CFFI:DEFCFUN ("dlags2_" %%DLAGS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPPER :POINTER)
  (A1 :POINTER)
  (A2 :POINTER)
  (A3 :POINTER)
  (B1 :POINTER)
  (B2 :POINTER)
  (B3 :POINTER)
  (CSU :POINTER)
  (SNU :POINTER)
  (CSV :POINTER)
  (SNV :POINTER)
  (CSQ :POINTER)
  (SNQ :POINTER))

(COMMON-LISP:DEFUN %DLAGS2 (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGS2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF7706 ':INT32) (A1-REF7707 ':DOUBLE)
                              (A2-REF7708 ':DOUBLE) (A3-REF7709 ':DOUBLE)
                              (B1-REF7710 ':DOUBLE) (B2-REF7711 ':DOUBLE)
                              (B3-REF7712 ':DOUBLE) (CSU-REF7713 ':DOUBLE)
                              (SNU-REF7714 ':DOUBLE) (CSV-REF7715 ':DOUBLE)
                              (SNV-REF7716 ':DOUBLE) (CSQ-REF7717 ':DOUBLE)
                              (SNQ-REF7718 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF7706 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF7707 :DOUBLE) A1)
    (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF7708 :DOUBLE) A2)
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF7709 :DOUBLE) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF7710 :DOUBLE) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF7711 :DOUBLE) B2)
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF7712 :DOUBLE) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF7713 :DOUBLE) CSU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF7714 :DOUBLE) SNU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF7715 :DOUBLE) CSV)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF7716 :DOUBLE) SNV)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF7717 :DOUBLE) CSQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF7718 :DOUBLE) SNQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAGS2 UPPER-REF7706 A1-REF7707 A2-REF7708 A3-REF7709 B1-REF7710
                B2-REF7711 B3-REF7712 CSU-REF7713 SNU-REF7714 CSV-REF7715
                SNV-REF7716 CSQ-REF7717 SNQ-REF7718))))

(CFFI:DEFCFUN ("dlagtf_" %%DLAGTF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (A :POINTER)
  (LAMBDA :POINTER)
  (B :POINTER)
  (C :POINTER)
  (TOL :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAGTF (N A LAMBDA B C TOL D IN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7719 ':INT32) (LAMBDA-REF7721 ':DOUBLE)
                              (TOL-REF7724 ':DOUBLE) (INFO-REF7727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7719 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF7721 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7724 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7727 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7720 A) (B-REF7722 B)
                                            (C-REF7723 C) (D-REF7725 D)
                                            (IN-REF7726 IN))
      (%%DLAGTF N-REF7719 A-REF7720 LAMBDA-REF7721 B-REF7722 C-REF7723
                TOL-REF7724 D-REF7725 IN-REF7726 INFO-REF7727))))

(CFFI:DEFCFUN ("dlagtm_" %%DLAGTM :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TRANS :STRING)
  (N :POINTER)
  (NRHS :POINTER)
  (ALPHA :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (BETA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DLAGTM (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7729 ':INT32) (NRHS-REF7730 ':INT32)
                              (ALPHA-REF7731 ':DOUBLE) (LDX-REF7736 ':INT32)
                              (BETA-REF7737 ':DOUBLE) (LDB-REF7739 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7730 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF7731 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7736 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF7737 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7739 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7732 DL) (D-REF7733 D)
                                            (DU-REF7734 DU) (X-REF7735 X)
                                            (B-REF7738 B))
      (%%DLAGTM TRANS N-REF7729 NRHS-REF7730 ALPHA-REF7731 DL-REF7732 D-REF7733
                DU-REF7734 X-REF7735 LDX-REF7736 BETA-REF7737 B-REF7738
                LDB-REF7739))))

(CFFI:DEFCFUN ("dlagts_" %%DLAGTS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (N :POINTER)
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (IN :POINTER)
  (Y :POINTER)
  (TOL :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAGTS (JOB N A B C D IN Y TOL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGTS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7740 ':INT32) (N-REF7741 ':INT32)
                              (TOL-REF7748 ':DOUBLE) (INFO-REF7749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7740 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7741 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF7748 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7749 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7742 A) (B-REF7743 B)
                                            (C-REF7744 C) (D-REF7745 D)
                                            (IN-REF7746 IN) (Y-REF7747 Y))
      (%%DLAGTS JOB-REF7740 N-REF7741 A-REF7742 B-REF7743 C-REF7744 D-REF7745
                IN-REF7746 Y-REF7747 TOL-REF7748 INFO-REF7749))))

(CFFI:DEFCFUN ("dlagv2_" %%DLAGV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (ALPHAR :POINTER)
  (ALPHAI :POINTER)
  (BETA :POINTER)
  (CSL :POINTER)
  (SNL :POINTER)
  (CSR :POINTER)
  (SNR :POINTER))

(COMMON-LISP:DEFUN %DLAGV2 (A LDA B LDB ALPHAR ALPHAI BETA CSL SNL CSR SNR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAGV2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        ALPHAI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        BETA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR))
  (CFFI:WITH-FOREIGN-OBJECTS ((LDA-REF7751 ':INT32) (LDB-REF7753 ':INT32)
                              (CSL-REF7757 ':DOUBLE) (SNL-REF7758 ':DOUBLE)
                              (CSR-REF7759 ':DOUBLE) (SNR-REF7760 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7751 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7753 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF7757 :DOUBLE) CSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF7758 :DOUBLE) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF7759 :DOUBLE) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF7760 :DOUBLE) SNR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7750 A) (B-REF7752 B)
                                            (ALPHAR-REF7754 ALPHAR)
                                            (ALPHAI-REF7755 ALPHAI)
                                            (BETA-REF7756 BETA))
      (%%DLAGV2 A-REF7750 LDA-REF7751 B-REF7752 LDB-REF7753 ALPHAR-REF7754
                ALPHAI-REF7755 BETA-REF7756 CSL-REF7757 SNL-REF7758 CSR-REF7759
                SNR-REF7760))))

(CFFI:DEFCFUN ("dlahqr_" %%DLAHQR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAHQR
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHQR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7761 ':INT32) (WANTZ-REF7762 ':INT32)
                              (N-REF7763 ':INT32) (ILO-REF7764 ':INT32)
                              (IHI-REF7765 ':INT32) (LDH-REF7767 ':INT32)
                              (ILOZ-REF7770 ':INT32) (IHIZ-REF7771 ':INT32)
                              (LDZ-REF7773 ':INT32) (INFO-REF7774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7761 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7762 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7763 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7764 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7765 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7767 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7770 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7771 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7773 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7774 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7766 H) (WR-REF7768 WR)
                                            (WI-REF7769 WI) (Z-REF7772 Z))
      (%%DLAHQR WANTT-REF7761 WANTZ-REF7762 N-REF7763 ILO-REF7764 IHI-REF7765
                H-REF7766 LDH-REF7767 WR-REF7768 WI-REF7769 ILOZ-REF7770
                IHIZ-REF7771 Z-REF7772 LDZ-REF7773 INFO-REF7774))))

(CFFI:DEFCFUN ("dlahr2_" %%DLAHR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (K :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (Y :POINTER)
  (LDY :POINTER))

(COMMON-LISP:DEFUN %DLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAHR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7775 ':INT32) (K-REF7776 ':INT32)
                              (NB-REF7777 ':INT32) (LDA-REF7779 ':INT32)
                              (LDT-REF7782 ':INT32) (LDY-REF7784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7775 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7776 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7777 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7779 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7782 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7784 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7778 A) (TAU-REF7780 TAU)
                                            (T-REF7781 T) (Y-REF7783 Y))
      (%%DLAHR2 N-REF7775 K-REF7776 NB-REF7777 A-REF7778 LDA-REF7779
                TAU-REF7780 T-REF7781 LDT-REF7782 Y-REF7783 LDY-REF7784))))

(CFFI:DEFCFUN ("dlaic1_" %%DLAIC1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOB :POINTER)
  (J :POINTER)
  (X :POINTER)
  (SEST :POINTER)
  (W :POINTER)
  (GAMMA :POINTER)
  (SESTPR :POINTER)
  (S :POINTER)
  (C :POINTER))

(COMMON-LISP:DEFUN %DLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAIC1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SEST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAMMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SESTPR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF7785 ':INT32) (J-REF7786 ':INT32)
                              (SEST-REF7788 ':DOUBLE) (GAMMA-REF7790 ':DOUBLE)
                              (SESTPR-REF7791 ':DOUBLE) (S-REF7792 ':DOUBLE)
                              (C-REF7793 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF7785 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF7786 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF7788 :DOUBLE) SEST)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAMMA-REF7790 :DOUBLE) GAMMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF7791 :DOUBLE) SESTPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7792 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7793 :DOUBLE) C)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7787 X) (W-REF7789 W))
      (%%DLAIC1 JOB-REF7785 J-REF7786 X-REF7787 SEST-REF7788 W-REF7789
                GAMMA-REF7790 SESTPR-REF7791 S-REF7792 C-REF7793))))

(CFFI:DEFCFUN ("dlaisnan_" %%DLAISNAN :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (DIN1 :POINTER)
  (DIN2 :POINTER))

(COMMON-LISP:DEFUN %DLAISNAN (DIN1 DIN2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAISNAN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN2))
  (CFFI:WITH-FOREIGN-OBJECTS ((DIN1-REF7794 ':DOUBLE) (DIN2-REF7795 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN1-REF7794 :DOUBLE) DIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN2-REF7795 :DOUBLE) DIN2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAISNAN DIN1-REF7794 DIN2-REF7795))))

(CFFI:DEFCFUN ("dlaln2_" %%DLALN2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (LTRANS :POINTER)
  (NA :POINTER)
  (NW :POINTER)
  (SMIN :POINTER)
  (CA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (D1 :POINTER)
  (D2 :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (SCALE :POINTER)
  (XNORM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALN2
                   (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE
                    XNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALN2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT XNORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF7796 ':INT32) (NA-REF7797 ':INT32)
                              (NW-REF7798 ':INT32) (SMIN-REF7799 ':DOUBLE)
                              (CA-REF7800 ':DOUBLE) (LDA-REF7802 ':INT32)
                              (D1-REF7803 ':DOUBLE) (D2-REF7804 ':DOUBLE)
                              (LDB-REF7806 ':INT32) (WR-REF7807 ':DOUBLE)
                              (WI-REF7808 ':DOUBLE) (LDX-REF7810 ':INT32)
                              (SCALE-REF7811 ':DOUBLE) (XNORM-REF7812 ':DOUBLE)
                              (INFO-REF7813 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF7796 :INT32) LTRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF7797 :INT32) NA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF7798 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF7799 :DOUBLE) SMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF7800 :DOUBLE) CA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7802 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF7803 :DOUBLE) D1)
    (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF7804 :DOUBLE) D2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7806 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF7807 :DOUBLE) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF7808 :DOUBLE) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7810 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7811 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF7812 :DOUBLE) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7813 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7801 A) (B-REF7805 B)
                                            (X-REF7809 X))
      (%%DLALN2 LTRANS-REF7796 NA-REF7797 NW-REF7798 SMIN-REF7799 CA-REF7800
                A-REF7801 LDA-REF7802 D1-REF7803 D2-REF7804 B-REF7805
                LDB-REF7806 WR-REF7807 WI-REF7808 X-REF7809 LDX-REF7810
                SCALE-REF7811 XNORM-REF7812 INFO-REF7813))))

(CFFI:DEFCFUN ("dlals0_" %%DLALS0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALS0
                   (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL
                    LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALS0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7814 ':INT32) (NL-REF7815 ':INT32)
                              (NR-REF7816 ':INT32) (SQRE-REF7817 ':INT32)
                              (NRHS-REF7818 ':INT32) (LDB-REF7820 ':INT32)
                              (LDBX-REF7822 ':INT32) (GIVPTR-REF7824 ':INT32)
                              (LDGCOL-REF7826 ':INT32) (LDGNUM-REF7828 ':INT32)
                              (K-REF7833 ':INT32) (C-REF7834 ':DOUBLE)
                              (S-REF7835 ':DOUBLE) (INFO-REF7837 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7814 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF7815 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF7816 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF7817 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7818 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7820 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7822 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7824 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7826 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF7828 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7833 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7834 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF7835 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7837 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7819 B) (BX-REF7821 BX)
                                            (PERM-REF7823 PERM)
                                            (GIVCOL-REF7825 GIVCOL)
                                            (GIVNUM-REF7827 GIVNUM)
                                            (POLES-REF7829 POLES)
                                            (DIFL-REF7830 DIFL)
                                            (DIFR-REF7831 DIFR) (Z-REF7832 Z)
                                            (WORK-REF7836 WORK))
      (%%DLALS0 ICOMPQ-REF7814 NL-REF7815 NR-REF7816 SQRE-REF7817 NRHS-REF7818
                B-REF7819 LDB-REF7820 BX-REF7821 LDBX-REF7822 PERM-REF7823
                GIVPTR-REF7824 GIVCOL-REF7825 LDGCOL-REF7826 GIVNUM-REF7827
                LDGNUM-REF7828 POLES-REF7829 DIFL-REF7830 DIFR-REF7831
                Z-REF7832 K-REF7833 C-REF7834 S-REF7835 WORK-REF7836
                INFO-REF7837))))

(CFFI:DEFCFUN ("dlalsa_" %%DLALSA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BX :POINTER)
  (LDBX :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALSA
                   (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z
                    POLES GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7838 ':INT32) (SMLSIZ-REF7839 ':INT32)
                              (N-REF7840 ':INT32) (NRHS-REF7841 ':INT32)
                              (LDB-REF7843 ':INT32) (LDBX-REF7845 ':INT32)
                              (LDU-REF7847 ':INT32) (LDGCOL-REF7856 ':INT32)
                              (INFO-REF7863 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7838 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7839 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7840 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7841 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7843 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF7845 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7847 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF7856 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7863 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF7842 B) (BX-REF7844 BX)
                                            (U-REF7846 U) (VT-REF7848 VT)
                                            (K-REF7849 K) (DIFL-REF7850 DIFL)
                                            (DIFR-REF7851 DIFR) (Z-REF7852 Z)
                                            (POLES-REF7853 POLES)
                                            (GIVPTR-REF7854 GIVPTR)
                                            (GIVCOL-REF7855 GIVCOL)
                                            (PERM-REF7857 PERM)
                                            (GIVNUM-REF7858 GIVNUM)
                                            (C-REF7859 C) (S-REF7860 S)
                                            (WORK-REF7861 WORK)
                                            (IWORK-REF7862 IWORK))
      (%%DLALSA ICOMPQ-REF7838 SMLSIZ-REF7839 N-REF7840 NRHS-REF7841 B-REF7842
                LDB-REF7843 BX-REF7844 LDBX-REF7845 U-REF7846 LDU-REF7847
                VT-REF7848 K-REF7849 DIFL-REF7850 DIFR-REF7851 Z-REF7852
                POLES-REF7853 GIVPTR-REF7854 GIVCOL-REF7855 LDGCOL-REF7856
                PERM-REF7857 GIVNUM-REF7858 C-REF7859 S-REF7860 WORK-REF7861
                IWORK-REF7862 INFO-REF7863))))

(CFFI:DEFCFUN ("dlalsd_" %%DLALSD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (NRHS :POINTER)
  (D :POINTER)
  (E :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (RCOND :POINTER)
  (RANK :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLALSD
                   (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLALSD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF7865 ':INT32) (N-REF7866 ':INT32)
                              (NRHS-REF7867 ':INT32) (LDB-REF7871 ':INT32)
                              (RCOND-REF7872 ':DOUBLE) (RANK-REF7873 ':INT32)
                              (INFO-REF7876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF7865 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7866 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7867 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7871 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7872 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF7873 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7868 D) (E-REF7869 E)
                                            (B-REF7870 B) (WORK-REF7874 WORK)
                                            (IWORK-REF7875 IWORK))
      (%%DLALSD UPLO SMLSIZ-REF7865 N-REF7866 NRHS-REF7867 D-REF7868 E-REF7869
                B-REF7870 LDB-REF7871 RCOND-REF7872 RANK-REF7873 WORK-REF7874
                IWORK-REF7875 INFO-REF7876))))

(CFFI:DEFCFUN ("dlamrg_" %%DLAMRG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N1 :POINTER)
  (N2 :POINTER)
  (A :POINTER)
  (DTRD1 :POINTER)
  (DTRD2 :POINTER)
  (INDEX :POINTER))

(COMMON-LISP:DEFUN %DLAMRG (N1 N2 A DTRD1 DTRD2 INDEX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMRG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DTRD2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N1-REF7877 ':INT32) (N2-REF7878 ':INT32)
                              (DTRD1-REF7880 ':INT32) (DTRD2-REF7881 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF7877 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF7878 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DTRD1-REF7880 :INT32) DTRD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DTRD2-REF7881 :INT32) DTRD2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7879 A) (INDEX-REF7882 INDEX))
      (%%DLAMRG N1-REF7877 N2-REF7878 A-REF7879 DTRD1-REF7880 DTRD2-REF7881
                INDEX-REF7882))))

(CFFI:DEFCFUN ("dlamswlq_" %%DLAMSWLQ :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAMSWLQ
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMSWLQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7885 ':INT32) (N-REF7886 ':INT32)
                              (K-REF7887 ':INT32) (MB-REF7888 ':INT32)
                              (NB-REF7889 ':INT32) (LDA-REF7891 ':INT32)
                              (LDT-REF7893 ':INT32) (LDC-REF7895 ':INT32)
                              (LWORK-REF7897 ':INT32) (INFO-REF7898 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7885 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7886 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7887 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7888 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7889 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7891 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7893 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7895 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7897 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7898 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7890 A) (T-REF7892 T)
                                            (C-REF7894 C) (WORK-REF7896 WORK))
      (%%DLAMSWLQ SIDE TRANS M-REF7885 N-REF7886 K-REF7887 MB-REF7888
                  NB-REF7889 A-REF7890 LDA-REF7891 T-REF7892 LDT-REF7893
                  C-REF7894 LDC-REF7895 WORK-REF7896 LWORK-REF7897
                  INFO-REF7898))))

(CFFI:DEFCFUN ("dlamtsqr_" %%DLAMTSQR :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAMTSQR
                   (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMTSQR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7901 ':INT32) (N-REF7902 ':INT32)
                              (K-REF7903 ':INT32) (MB-REF7904 ':INT32)
                              (NB-REF7905 ':INT32) (LDA-REF7907 ':INT32)
                              (LDT-REF7909 ':INT32) (LDC-REF7911 ':INT32)
                              (LWORK-REF7913 ':INT32) (INFO-REF7914 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7901 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7902 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7903 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF7904 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF7905 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7907 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7909 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7911 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7913 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7914 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7906 A) (T-REF7908 T)
                                            (C-REF7910 C) (WORK-REF7912 WORK))
      (%%DLAMTSQR SIDE TRANS M-REF7901 N-REF7902 K-REF7903 MB-REF7904
                  NB-REF7905 A-REF7906 LDA-REF7907 T-REF7908 LDT-REF7909
                  C-REF7910 LDC-REF7911 WORK-REF7912 LWORK-REF7913
                  INFO-REF7914))))

(CFFI:DEFCFUN ("dlaneg_" %%DLANEG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :INT32
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (SIGMA :POINTER)
  (PIVMIN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %DLANEG (N D LLD SIGMA PIVMIN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANEG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7915 ':INT32) (SIGMA-REF7918 ':DOUBLE)
                              (PIVMIN-REF7919 ':DOUBLE) (R-REF7920 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7915 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF7918 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7919 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF7920 :INT32) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7916 D) (LLD-REF7917 LLD))
      (%%DLANEG N-REF7915 D-REF7916 LLD-REF7917 SIGMA-REF7918 PIVMIN-REF7919
                R-REF7920))))

(CFFI:DEFCFUN ("dlangb_" %%DLANGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7922 ':INT32) (KL-REF7923 ':INT32)
                              (KU-REF7924 ':INT32) (LDAB-REF7926 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7922 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7923 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7924 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7926 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7925 AB) (WORK-REF7927 WORK))
      (%%DLANGB NORM N-REF7922 KL-REF7923 KU-REF7924 AB-REF7925 LDAB-REF7926
                WORK-REF7927))))

(CFFI:DEFCFUN ("dlange_" %%DLANGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7929 ':INT32) (N-REF7930 ':INT32)
                              (LDA-REF7932 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7929 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7930 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7932 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7931 A) (WORK-REF7933 WORK))
      (%%DLANGE NORM M-REF7929 N-REF7930 A-REF7931 LDA-REF7932 WORK-REF7933))))

(CFFI:DEFCFUN ("dlangt_" %%DLANGT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (DL :POINTER)
  (D :POINTER)
  (DU :POINTER))

(COMMON-LISP:DEFUN %DLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANGT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7935 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7935 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF7936 DL) (D-REF7937 D)
                                            (DU-REF7938 DU))
      (%%DLANGT NORM N-REF7935 DL-REF7936 D-REF7937 DU-REF7938))))

(CFFI:DEFCFUN ("dlanhs_" %%DLANHS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANHS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7940 ':INT32) (LDA-REF7942 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7940 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7942 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7941 A) (WORK-REF7943 WORK))
      (%%DLANHS NORM N-REF7940 A-REF7941 LDA-REF7942 WORK-REF7943))))

(CFFI:DEFCFUN ("dlansb_" %%DLANSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7946 ':INT32) (K-REF7947 ':INT32)
                              (LDAB-REF7949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7946 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7947 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7949 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7948 AB) (WORK-REF7950 WORK))
      (%%DLANSB NORM UPLO N-REF7946 K-REF7947 AB-REF7948 LDAB-REF7949
                WORK-REF7950))))

(CFFI:DEFCFUN ("dlansf_" %%DLANSF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (TRANSR :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSF (NORM TRANSR UPLO N A WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7954 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7954 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7955 A) (WORK-REF7956 WORK))
      (%%DLANSF NORM TRANSR UPLO N-REF7954 A-REF7955 WORK-REF7956))))

(CFFI:DEFCFUN ("dlansp_" %%DLANSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7959 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7959 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7960 AP) (WORK-REF7961 WORK))
      (%%DLANSP NORM UPLO N-REF7959 AP-REF7960 WORK-REF7961))))

(CFFI:DEFCFUN ("dlanst_" %%DLANST :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (N :POINTER)
  (D :POINTER)
  (E :POINTER))

(COMMON-LISP:DEFUN %DLANST (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANST)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7963 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7963 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7964 D) (E-REF7965 E))
      (%%DLANST NORM N-REF7963 D-REF7964 E-REF7965))))

(CFFI:DEFCFUN ("dlansy_" %%DLANSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7968 ':INT32) (LDA-REF7970 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7968 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7970 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7969 A) (WORK-REF7971 WORK))
      (%%DLANSY NORM UPLO N-REF7968 A-REF7969 LDA-REF7970 WORK-REF7971))))

(CFFI:DEFCFUN ("dlantb_" %%DLANTB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANTB (NORM UPLO DIAG N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7975 ':INT32) (K-REF7976 ':INT32)
                              (LDAB-REF7978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7975 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7976 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7978 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7977 AB) (WORK-REF7979 WORK))
      (%%DLANTB NORM UPLO DIAG N-REF7975 K-REF7976 AB-REF7977 LDAB-REF7978
                WORK-REF7979))))

(CFFI:DEFCFUN ("dlantp_" %%DLANTP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7983 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7983 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7984 AP) (WORK-REF7985 WORK))
      (%%DLANTP NORM UPLO DIAG N-REF7983 AP-REF7984 WORK-REF7985))))

(CFFI:DEFCFUN ("dlantr_" %%DLANTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (NORM :STRING)
  (UPLO :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANTR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7989 ':INT32) (N-REF7990 ':INT32)
                              (LDA-REF7992 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7989 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7990 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7992 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7991 A) (WORK-REF7993 WORK))
      (%%DLANTR NORM UPLO DIAG M-REF7989 N-REF7990 A-REF7991 LDA-REF7992
                WORK-REF7993))))

(CFFI:DEFCFUN ("dlanv2_" %%DLANV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (A :POINTER)
  (B :POINTER)
  (C :POINTER)
  (D :POINTER)
  (RT1R :POINTER)
  (RT1I :POINTER)
  (RT2R :POINTER)
  (RT2I :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %DLANV2 (A B C D RT1R RT1I RT2R RT2I CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANV2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1R)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT1I)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2R)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RT2I)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF7994 ':DOUBLE) (B-REF7995 ':DOUBLE)
                              (C-REF7996 ':DOUBLE) (D-REF7997 ':DOUBLE)
                              (RT1R-REF7998 ':DOUBLE) (RT1I-REF7999 ':DOUBLE)
                              (RT2R-REF8000 ':DOUBLE) (RT2I-REF8001 ':DOUBLE)
                              (CS-REF8002 ':DOUBLE) (SN-REF8003 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF7994 :DOUBLE) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF7995 :DOUBLE) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF7996 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF7997 :DOUBLE) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1R-REF7998 :DOUBLE) RT1R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT1I-REF7999 :DOUBLE) RT1I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2R-REF8000 :DOUBLE) RT2R)
    (COMMON-LISP:SETF (CFFI:MEM-REF RT2I-REF8001 :DOUBLE) RT2I)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8002 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8003 :DOUBLE) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLANV2 A-REF7994 B-REF7995 C-REF7996 D-REF7997 RT1R-REF7998
                RT1I-REF7999 RT2R-REF8000 RT2I-REF8001 CS-REF8002 SN-REF8003))))

(CFFI:DEFCFUN ("dlapll_" %%DLAPLL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (SSMIN :POINTER))

(COMMON-LISP:DEFUN %DLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPLL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8004 ':INT32) (INCX-REF8006 ':INT32)
                              (INCY-REF8008 ':INT32) (SSMIN-REF8009 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8004 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8006 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8008 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8009 :DOUBLE) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8005 X) (Y-REF8007 Y))
      (%%DLAPLL N-REF8004 X-REF8005 INCX-REF8006 Y-REF8007 INCY-REF8008
                SSMIN-REF8009))))

(CFFI:DEFCFUN ("dlapmr_" %%DLAPMR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %DLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF8010 ':INT32) (M-REF8011 ':INT32)
                              (N-REF8012 ':INT32) (LDX-REF8014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF8010 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8011 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8014 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8013 X) (K-REF8015 K))
      (%%DLAPMR FORWRD-REF8010 M-REF8011 N-REF8012 X-REF8013 LDX-REF8014
                K-REF8015))))

(CFFI:DEFCFUN ("dlapmt_" %%DLAPMT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (FORWRD :POINTER)
  (M :POINTER)
  (N :POINTER)
  (X :POINTER)
  (LDX :POINTER)
  (K :POINTER))

(COMMON-LISP:DEFUN %DLAPMT (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF8016 ':INT32) (M-REF8017 ':INT32)
                              (N-REF8018 ':INT32) (LDX-REF8020 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF8016 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8017 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8018 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8020 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8019 X) (K-REF8021 K))
      (%%DLAPMT FORWRD-REF8016 M-REF8017 N-REF8018 X-REF8019 LDX-REF8020
                K-REF8021))))

(CFFI:DEFCFUN ("dlapy2_" %%DLAPY2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (X :POINTER)
  (Y :POINTER))

(COMMON-LISP:DEFUN %DLAPY2 (X Y)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8022 ':DOUBLE) (Y-REF8023 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8022 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8023 :DOUBLE) Y)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAPY2 X-REF8022 Y-REF8023))))

(CFFI:DEFCFUN ("dlapy3_" %%DLAPY3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :DOUBLE
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER))

(COMMON-LISP:DEFUN %DLAPY3 (X Y Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY3)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8024 ':DOUBLE) (Y-REF8025 ':DOUBLE)
                              (Z-REF8026 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8024 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8025 :DOUBLE) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF8026 :DOUBLE) Z)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAPY3 X-REF8024 Y-REF8025 Z-REF8026))))

(CFFI:DEFCFUN ("dlaqgb_" %%DLAQGB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQGB (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8027 ':INT32) (N-REF8028 ':INT32)
                              (KL-REF8029 ':INT32) (KU-REF8030 ':INT32)
                              (LDAB-REF8032 ':INT32) (ROWCND-REF8035 ':DOUBLE)
                              (COLCND-REF8036 ':DOUBLE) (AMAX-REF8037 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8027 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8029 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8030 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8032 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8035 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8036 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8037 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8031 AB) (R-REF8033 R)
                                            (C-REF8034 C))
      (%%DLAQGB M-REF8027 N-REF8028 KL-REF8029 KU-REF8030 AB-REF8031
                LDAB-REF8032 R-REF8033 C-REF8034 ROWCND-REF8035 COLCND-REF8036
                AMAX-REF8037 EQUED))))

(CFFI:DEFCFUN ("dlaqge_" %%DLAQGE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (R :POINTER)
  (C :POINTER)
  (ROWCND :POINTER)
  (COLCND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8039 ':INT32) (N-REF8040 ':INT32)
                              (LDA-REF8042 ':INT32) (ROWCND-REF8045 ':DOUBLE)
                              (COLCND-REF8046 ':DOUBLE) (AMAX-REF8047 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8039 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8040 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8042 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8045 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8046 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8047 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8041 A) (R-REF8043 R)
                                            (C-REF8044 C))
      (%%DLAQGE M-REF8039 N-REF8040 A-REF8041 LDA-REF8042 R-REF8043 C-REF8044
                ROWCND-REF8045 COLCND-REF8046 AMAX-REF8047 EQUED))))

(CFFI:DEFCFUN ("dlaqp2_" %%DLAQP2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQP2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8049 ':INT32) (N-REF8050 ':INT32)
                              (OFFSET-REF8051 ':INT32) (LDA-REF8053 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8049 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8050 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8051 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8053 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8052 A) (JPVT-REF8054 JPVT)
                                            (TAU-REF8055 TAU) (VN1-REF8056 VN1)
                                            (VN2-REF8057 VN2)
                                            (WORK-REF8058 WORK))
      (%%DLAQP2 M-REF8049 N-REF8050 OFFSET-REF8051 A-REF8052 LDA-REF8053
                JPVT-REF8054 TAU-REF8055 VN1-REF8056 VN2-REF8057
                WORK-REF8058))))

(CFFI:DEFCFUN ("dlaqps_" %%DLAQPS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (OFFSET :POINTER)
  (NB :POINTER)
  (KB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (JPVT :POINTER)
  (TAU :POINTER)
  (VN1 :POINTER)
  (VN2 :POINTER)
  (AUXV :POINTER)
  (F :POINTER)
  (LDF :POINTER))

(COMMON-LISP:DEFUN %DLAQPS (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQPS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        JPVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VN2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AUXV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8059 ':INT32) (N-REF8060 ':INT32)
                              (OFFSET-REF8061 ':INT32) (NB-REF8062 ':INT32)
                              (KB-REF8063 ':INT32) (LDA-REF8065 ':INT32)
                              (LDF-REF8072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8059 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8060 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8061 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8062 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8063 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8065 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF8072 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8064 A) (JPVT-REF8066 JPVT)
                                            (TAU-REF8067 TAU) (VN1-REF8068 VN1)
                                            (VN2-REF8069 VN2)
                                            (AUXV-REF8070 AUXV) (F-REF8071 F))
      (%%DLAQPS M-REF8059 N-REF8060 OFFSET-REF8061 NB-REF8062 KB-REF8063
                A-REF8064 LDA-REF8065 JPVT-REF8066 TAU-REF8067 VN1-REF8068
                VN2-REF8069 AUXV-REF8070 F-REF8071 LDF-REF8072))))

(CFFI:DEFCFUN ("dlaqr0_" %%DLAQR0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAQR0
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8073 ':INT32) (WANTZ-REF8074 ':INT32)
                              (N-REF8075 ':INT32) (ILO-REF8076 ':INT32)
                              (IHI-REF8077 ':INT32) (LDH-REF8079 ':INT32)
                              (ILOZ-REF8082 ':INT32) (IHIZ-REF8083 ':INT32)
                              (LDZ-REF8085 ':INT32) (LWORK-REF8087 ':INT32)
                              (INFO-REF8088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8073 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8074 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8075 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8076 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8077 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8079 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8082 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8083 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8085 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8087 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8078 H) (WR-REF8080 WR)
                                            (WI-REF8081 WI) (Z-REF8084 Z)
                                            (WORK-REF8086 WORK))
      (%%DLAQR0 WANTT-REF8073 WANTZ-REF8074 N-REF8075 ILO-REF8076 IHI-REF8077
                H-REF8078 LDH-REF8079 WR-REF8080 WI-REF8081 ILOZ-REF8082
                IHIZ-REF8083 Z-REF8084 LDZ-REF8085 WORK-REF8086 LWORK-REF8087
                INFO-REF8088))))

(CFFI:DEFCFUN ("dlaqr1_" %%DLAQR1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (SR1 :POINTER)
  (SI1 :POINTER)
  (SR2 :POINTER)
  (SI2 :POINTER)
  (V :POINTER))

(COMMON-LISP:DEFUN %DLAQR1 (N H LDH SR1 SI1 SR2 SI2 V)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SR2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SI2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8089 ':INT32) (LDH-REF8091 ':INT32)
                              (SR1-REF8092 ':DOUBLE) (SI1-REF8093 ':DOUBLE)
                              (SR2-REF8094 ':DOUBLE) (SI2-REF8095 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8089 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8091 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR1-REF8092 :DOUBLE) SR1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI1-REF8093 :DOUBLE) SI1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SR2-REF8094 :DOUBLE) SR2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SI2-REF8095 :DOUBLE) SI2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8090 H) (V-REF8096 V))
      (%%DLAQR1 N-REF8089 H-REF8090 LDH-REF8091 SR1-REF8092 SI1-REF8093
                SR2-REF8094 SI2-REF8095 V-REF8096))))

(CFFI:DEFCFUN ("dlaqr2_" %%DLAQR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %DLAQR2
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8097 ':INT32) (WANTZ-REF8098 ':INT32)
                              (N-REF8099 ':INT32) (KTOP-REF8100 ':INT32)
                              (KBOT-REF8101 ':INT32) (NW-REF8102 ':INT32)
                              (LDH-REF8104 ':INT32) (ILOZ-REF8105 ':INT32)
                              (IHIZ-REF8106 ':INT32) (LDZ-REF8108 ':INT32)
                              (NS-REF8109 ':INT32) (ND-REF8110 ':INT32)
                              (LDV-REF8114 ':INT32) (NH-REF8115 ':INT32)
                              (LDT-REF8117 ':INT32) (NV-REF8118 ':INT32)
                              (LDWV-REF8120 ':INT32) (LWORK-REF8122 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8097 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8098 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8099 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8100 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8101 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8102 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8104 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8105 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8106 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8108 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8109 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8110 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8114 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8115 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8117 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8118 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8120 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8122 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8103 H) (Z-REF8107 Z)
                                            (SR-REF8111 SR) (SI-REF8112 SI)
                                            (V-REF8113 V) (T-REF8116 T)
                                            (WV-REF8119 WV) (WORK-REF8121 WORK))
      (%%DLAQR2 WANTT-REF8097 WANTZ-REF8098 N-REF8099 KTOP-REF8100 KBOT-REF8101
                NW-REF8102 H-REF8103 LDH-REF8104 ILOZ-REF8105 IHIZ-REF8106
                Z-REF8107 LDZ-REF8108 NS-REF8109 ND-REF8110 SR-REF8111
                SI-REF8112 V-REF8113 LDV-REF8114 NH-REF8115 T-REF8116
                LDT-REF8117 NV-REF8118 WV-REF8119 LDWV-REF8120 WORK-REF8121
                LWORK-REF8122))))

(CFFI:DEFCFUN ("dlaqr3_" %%DLAQR3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NW :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (NS :POINTER)
  (ND :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (NH :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER))

(COMMON-LISP:DEFUN %DLAQR3
                   (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR
                    SI V LDV NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8123 ':INT32) (WANTZ-REF8124 ':INT32)
                              (N-REF8125 ':INT32) (KTOP-REF8126 ':INT32)
                              (KBOT-REF8127 ':INT32) (NW-REF8128 ':INT32)
                              (LDH-REF8130 ':INT32) (ILOZ-REF8131 ':INT32)
                              (IHIZ-REF8132 ':INT32) (LDZ-REF8134 ':INT32)
                              (NS-REF8135 ':INT32) (ND-REF8136 ':INT32)
                              (LDV-REF8140 ':INT32) (NH-REF8141 ':INT32)
                              (LDT-REF8143 ':INT32) (NV-REF8144 ':INT32)
                              (LDWV-REF8146 ':INT32) (LWORK-REF8148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8123 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8124 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8125 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8126 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8127 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF8128 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8130 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8131 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8132 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8134 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF8135 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8136 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8140 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8141 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8143 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8144 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8146 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8148 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8129 H) (Z-REF8133 Z)
                                            (SR-REF8137 SR) (SI-REF8138 SI)
                                            (V-REF8139 V) (T-REF8142 T)
                                            (WV-REF8145 WV) (WORK-REF8147 WORK))
      (%%DLAQR3 WANTT-REF8123 WANTZ-REF8124 N-REF8125 KTOP-REF8126 KBOT-REF8127
                NW-REF8128 H-REF8129 LDH-REF8130 ILOZ-REF8131 IHIZ-REF8132
                Z-REF8133 LDZ-REF8134 NS-REF8135 ND-REF8136 SR-REF8137
                SI-REF8138 V-REF8139 LDV-REF8140 NH-REF8141 T-REF8142
                LDT-REF8143 NV-REF8144 WV-REF8145 LDWV-REF8146 WORK-REF8147
                LWORK-REF8148))))

(CFFI:DEFCFUN ("dlaqr4_" %%DLAQR4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (N :POINTER)
  (ILO :POINTER)
  (IHI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (WR :POINTER)
  (WI :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAQR4
                   (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK
                    LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8149 ':INT32) (WANTZ-REF8150 ':INT32)
                              (N-REF8151 ':INT32) (ILO-REF8152 ':INT32)
                              (IHI-REF8153 ':INT32) (LDH-REF8155 ':INT32)
                              (ILOZ-REF8158 ':INT32) (IHIZ-REF8159 ':INT32)
                              (LDZ-REF8161 ':INT32) (LWORK-REF8163 ':INT32)
                              (INFO-REF8164 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8149 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8150 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8151 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8152 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8153 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8155 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8158 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8159 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8161 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8163 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8164 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF8154 H) (WR-REF8156 WR)
                                            (WI-REF8157 WI) (Z-REF8160 Z)
                                            (WORK-REF8162 WORK))
      (%%DLAQR4 WANTT-REF8149 WANTZ-REF8150 N-REF8151 ILO-REF8152 IHI-REF8153
                H-REF8154 LDH-REF8155 WR-REF8156 WI-REF8157 ILOZ-REF8158
                IHIZ-REF8159 Z-REF8160 LDZ-REF8161 WORK-REF8162 LWORK-REF8163
                INFO-REF8164))))

(CFFI:DEFCFUN ("dlaqr5_" %%DLAQR5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (WANTT :POINTER)
  (WANTZ :POINTER)
  (KACC22 :POINTER)
  (N :POINTER)
  (KTOP :POINTER)
  (KBOT :POINTER)
  (NSHFTS :POINTER)
  (SR :POINTER)
  (SI :POINTER)
  (H :POINTER)
  (LDH :POINTER)
  (ILOZ :POINTER)
  (IHIZ :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (NV :POINTER)
  (WV :POINTER)
  (LDWV :POINTER)
  (NH :POINTER)
  (WH :POINTER)
  (LDWH :POINTER))

(COMMON-LISP:DEFUN %DLAQR5
                   (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ
                    Z LDZ V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WH)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8165 ':INT32) (WANTZ-REF8166 ':INT32)
                              (KACC22-REF8167 ':INT32) (N-REF8168 ':INT32)
                              (KTOP-REF8169 ':INT32) (KBOT-REF8170 ':INT32)
                              (NSHFTS-REF8171 ':INT32) (LDH-REF8175 ':INT32)
                              (ILOZ-REF8176 ':INT32) (IHIZ-REF8177 ':INT32)
                              (LDZ-REF8179 ':INT32) (LDV-REF8181 ':INT32)
                              (LDU-REF8183 ':INT32) (NV-REF8184 ':INT32)
                              (LDWV-REF8186 ':INT32) (NH-REF8187 ':INT32)
                              (LDWH-REF8189 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8165 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8166 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF8167 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8168 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8169 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8170 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF8171 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8175 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8176 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8177 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8179 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8181 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8183 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8184 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8186 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8187 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF8189 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF8172 SR) (SI-REF8173 SI)
                                            (H-REF8174 H) (Z-REF8178 Z)
                                            (V-REF8180 V) (U-REF8182 U)
                                            (WV-REF8185 WV) (WH-REF8188 WH))
      (%%DLAQR5 WANTT-REF8165 WANTZ-REF8166 KACC22-REF8167 N-REF8168
                KTOP-REF8169 KBOT-REF8170 NSHFTS-REF8171 SR-REF8172 SI-REF8173
                H-REF8174 LDH-REF8175 ILOZ-REF8176 IHIZ-REF8177 Z-REF8178
                LDZ-REF8179 V-REF8180 LDV-REF8181 U-REF8182 LDU-REF8183
                NV-REF8184 WV-REF8185 LDWV-REF8186 NH-REF8187 WH-REF8188
                LDWH-REF8189))))

(CFFI:DEFCFUN ("dlaqsb_" %%DLAQSB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (KD :POINTER)
  (AB :POINTER)
  (LDAB :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQSB (UPLO N KD AB LDAB S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8191 ':INT32) (KD-REF8192 ':INT32)
                              (LDAB-REF8194 ':INT32) (SCOND-REF8196 ':DOUBLE)
                              (AMAX-REF8197 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8191 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8192 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8194 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8196 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8197 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8193 AB) (S-REF8195 S))
      (%%DLAQSB UPLO N-REF8191 KD-REF8192 AB-REF8193 LDAB-REF8194 S-REF8195
                SCOND-REF8196 AMAX-REF8197 EQUED))))

(CFFI:DEFCFUN ("dlaqsp_" %%DLAQSP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (AP :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSP)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8200 ':INT32) (SCOND-REF8203 ':DOUBLE)
                              (AMAX-REF8204 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8200 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8203 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8204 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8201 AP) (S-REF8202 S))
      (%%DLAQSP UPLO N-REF8200 AP-REF8201 S-REF8202 SCOND-REF8203 AMAX-REF8204
                EQUED))))

(CFFI:DEFCFUN ("dlaqsy_" %%DLAQSY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (S :POINTER)
  (SCOND :POINTER)
  (AMAX :POINTER)
  (EQUED :STRING))

(COMMON-LISP:DEFUN %DLAQSY (UPLO N A LDA S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQSY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8207 ':INT32) (LDA-REF8209 ':INT32)
                              (SCOND-REF8211 ':DOUBLE) (AMAX-REF8212 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8207 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8209 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8211 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8212 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8208 A) (S-REF8210 S))
      (%%DLAQSY UPLO N-REF8207 A-REF8208 LDA-REF8209 S-REF8210 SCOND-REF8211
                AMAX-REF8212 EQUED))))

(CFFI:DEFCFUN ("dlaqtr_" %%DLAQTR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (LTRAN :POINTER)
  (LREAL :POINTER)
  (N :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (B :POINTER)
  (W :POINTER)
  (SCALE :POINTER)
  (X :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLAQTR (LTRAN LREAL N T LDT B W SCALE X WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQTR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRAN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LREAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRAN-REF8214 ':INT32) (LREAL-REF8215 ':INT32)
                              (N-REF8216 ':INT32) (LDT-REF8218 ':INT32)
                              (W-REF8220 ':DOUBLE) (SCALE-REF8221 ':DOUBLE)
                              (INFO-REF8224 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRAN-REF8214 :INT32) LTRAN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LREAL-REF8215 :INT32) LREAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8216 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8218 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8220 :DOUBLE) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8221 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8224 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF8217 T) (B-REF8219 B)
                                            (X-REF8222 X) (WORK-REF8223 WORK))
      (%%DLAQTR LTRAN-REF8214 LREAL-REF8215 N-REF8216 T-REF8217 LDT-REF8218
                B-REF8219 W-REF8220 SCALE-REF8221 X-REF8222 WORK-REF8223
                INFO-REF8224))))

(CFFI:DEFCFUN ("dlar1v_" %%DLAR1V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (B1 :POINTER)
  (BN :POINTER)
  (LAMBDA :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (LLD :POINTER)
  (PIVMIN :POINTER)
  (GAPTOL :POINTER)
  (Z :POINTER)
  (WANTNC :POINTER)
  (NEGCNT :POINTER)
  (ZTZ :POINTER)
  (MINGMA :POINTER)
  (R :POINTER)
  (ISUPPZ :POINTER)
  (NRMINV :POINTER)
  (RESID :POINTER)
  (RQCORR :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLAR1V
                   (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ
                    MINGMA R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR1V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8225 ':INT32) (B1-REF8226 ':INT32)
                              (BN-REF8227 ':INT32) (LAMBDA-REF8228 ':DOUBLE)
                              (PIVMIN-REF8233 ':DOUBLE)
                              (GAPTOL-REF8234 ':DOUBLE)
                              (WANTNC-REF8236 ':INT32) (NEGCNT-REF8237 ':INT32)
                              (ZTZ-REF8238 ':DOUBLE) (MINGMA-REF8239 ':DOUBLE)
                              (R-REF8240 ':INT32) (NRMINV-REF8242 ':DOUBLE)
                              (RESID-REF8243 ':DOUBLE)
                              (RQCORR-REF8244 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF8226 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF8227 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF8228 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8233 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF8234 :DOUBLE) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF8236 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF8237 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF8238 :DOUBLE) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF8239 :DOUBLE) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8240 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF8242 :DOUBLE) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF8243 :DOUBLE) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF8244 :DOUBLE) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8229 D) (L-REF8230 L)
                                            (LD-REF8231 LD) (LLD-REF8232 LLD)
                                            (Z-REF8235 Z)
                                            (ISUPPZ-REF8241 ISUPPZ)
                                            (WORK-REF8245 WORK))
      (%%DLAR1V N-REF8225 B1-REF8226 BN-REF8227 LAMBDA-REF8228 D-REF8229
                L-REF8230 LD-REF8231 LLD-REF8232 PIVMIN-REF8233 GAPTOL-REF8234
                Z-REF8235 WANTNC-REF8236 NEGCNT-REF8237 ZTZ-REF8238
                MINGMA-REF8239 R-REF8240 ISUPPZ-REF8241 NRMINV-REF8242
                RESID-REF8243 RQCORR-REF8244 WORK-REF8245))))

(CFFI:DEFCFUN ("dlar2v_" %%DLAR2V :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (Y :POINTER)
  (Z :POINTER)
  (INCX :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %DLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR2V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8246 ':INT32) (INCX-REF8250 ':INT32)
                              (INCC-REF8253 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8250 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8253 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8247 X) (Y-REF8248 Y)
                                            (Z-REF8249 Z) (C-REF8251 C)
                                            (S-REF8252 S))
      (%%DLAR2V N-REF8246 X-REF8247 Y-REF8248 Z-REF8249 INCX-REF8250 C-REF8251
                S-REF8252 INCC-REF8253))))

(CFFI:DEFCFUN ("dlarf_" %%DLARF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARF (SIDE M N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARF)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8255 ':INT32) (N-REF8256 ':INT32)
                              (INCV-REF8258 ':INT32) (TAU-REF8259 ':DOUBLE)
                              (LDC-REF8261 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8255 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8258 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8259 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8261 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8257 V) (C-REF8260 C)
                                            (WORK-REF8262 WORK))
      (%%DLARF SIDE M-REF8255 N-REF8256 V-REF8257 INCV-REF8258 TAU-REF8259
               C-REF8260 LDC-REF8261 WORK-REF8262))))

(CFFI:DEFCFUN ("dlarfb_" %%DLARFB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %DLARFB
                   (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8267 ':INT32) (N-REF8268 ':INT32)
                              (K-REF8269 ':INT32) (LDV-REF8271 ':INT32)
                              (LDT-REF8273 ':INT32) (LDC-REF8275 ':INT32)
                              (LDWORK-REF8277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8267 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8268 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8269 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8271 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8273 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8275 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8277 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8270 V) (T-REF8272 T)
                                            (C-REF8274 C) (WORK-REF8276 WORK))
      (%%DLARFB SIDE TRANS DIRECT STOREV M-REF8267 N-REF8268 K-REF8269
                V-REF8270 LDV-REF8271 T-REF8272 LDT-REF8273 C-REF8274
                LDC-REF8275 WORK-REF8276 LDWORK-REF8277))))

(CFFI:DEFCFUN ("dlarfg_" %%DLARFG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %DLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8278 ':INT32) (ALPHA-REF8279 ':DOUBLE)
                              (INCX-REF8281 ':INT32) (TAU-REF8282 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8279 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8281 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8282 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8280 X))
      (%%DLARFG N-REF8278 ALPHA-REF8279 X-REF8280 INCX-REF8281 TAU-REF8282))))

(CFFI:DEFCFUN ("dlarfgp_" %%DLARFGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %DLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFGP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8283 ':INT32) (ALPHA-REF8284 ':DOUBLE)
                              (INCX-REF8286 ':INT32) (TAU-REF8287 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8284 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8286 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8287 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8285 X))
      (%%DLARFGP N-REF8283 ALPHA-REF8284 X-REF8285 INCX-REF8286 TAU-REF8287))))

(CFFI:DEFCFUN ("dlarft_" %%DLARFT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %DLARFT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8290 ':INT32) (K-REF8291 ':INT32)
                              (LDV-REF8293 ':INT32) (LDT-REF8296 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8290 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8291 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8293 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8296 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8292 V) (TAU-REF8294 TAU)
                                            (T-REF8295 T))
      (%%DLARFT DIRECT STOREV N-REF8290 K-REF8291 V-REF8292 LDV-REF8293
                TAU-REF8294 T-REF8295 LDT-REF8296))))

(CFFI:DEFCFUN ("dlarfx_" %%DLARFX :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (V :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARFX (SIDE M N V TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFX)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8298 ':INT32) (N-REF8299 ':INT32)
                              (TAU-REF8301 ':DOUBLE) (LDC-REF8303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8298 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8299 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8301 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8303 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8300 V) (C-REF8302 C)
                                            (WORK-REF8304 WORK))
      (%%DLARFX SIDE M-REF8298 N-REF8299 V-REF8300 TAU-REF8301 C-REF8302
                LDC-REF8303 WORK-REF8304))))

(CFFI:DEFCFUN ("dlarfy_" %%DLARFY :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARFY (UPLO N V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFY)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8306 ':INT32) (INCV-REF8308 ':INT32)
                              (TAU-REF8309 ':DOUBLE) (LDC-REF8311 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8306 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8308 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8309 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8311 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8307 V) (C-REF8310 C)
                                            (WORK-REF8312 WORK))
      (%%DLARFY UPLO N-REF8306 V-REF8307 INCV-REF8308 TAU-REF8309 C-REF8310
                LDC-REF8311 WORK-REF8312))))

(CFFI:DEFCFUN ("dlargv_" %%DLARGV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %DLARGV (N X INCX Y INCY C INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARGV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8313 ':INT32) (INCX-REF8315 ':INT32)
                              (INCY-REF8317 ':INT32) (INCC-REF8319 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8313 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8315 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8317 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8319 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8314 X) (Y-REF8316 Y)
                                            (C-REF8318 C))
      (%%DLARGV N-REF8313 X-REF8314 INCX-REF8315 Y-REF8316 INCY-REF8317
                C-REF8318 INCC-REF8319))))

(CFFI:DEFCFUN ("dlarnv_" %%DLARNV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (IDIST :POINTER)
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %DLARNV (IDIST ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARNV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IDIST)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((IDIST-REF8320 ':INT32) (N-REF8322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IDIST-REF8320 :INT32) IDIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8322 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8321 ISEED) (X-REF8323 X))
      (%%DLARNV IDIST-REF8320 ISEED-REF8321 N-REF8322 X-REF8323))))

(CFFI:DEFCFUN ("dlarra_" %%DLARRA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (SPLTOL :POINTER)
  (TNRM :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRA (N D E E2 SPLTOL TNRM NSPLIT ISPLIT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TNRM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8324 ':INT32) (SPLTOL-REF8328 ':DOUBLE)
                              (TNRM-REF8329 ':DOUBLE) (NSPLIT-REF8330 ':INT32)
                              (INFO-REF8332 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8328 :DOUBLE) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF TNRM-REF8329 :DOUBLE) TNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8330 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8332 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8325 D) (E-REF8326 E)
                                            (E2-REF8327 E2)
                                            (ISPLIT-REF8331 ISPLIT))
      (%%DLARRA N-REF8324 D-REF8325 E-REF8326 E2-REF8327 SPLTOL-REF8328
                TNRM-REF8329 NSPLIT-REF8330 ISPLIT-REF8331 INFO-REF8332))))

(CFFI:DEFCFUN ("dlarrb_" %%DLARRB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (LLD :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (TWIST :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRB
                   (N D LLD IFIRST ILAST RTOL1 RTOL2 OFFSET W WGAP WERR WORK
                    IWORK PIVMIN SPDIAM TWIST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LLD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8333 ':INT32) (IFIRST-REF8336 ':INT32)
                              (ILAST-REF8337 ':INT32) (RTOL1-REF8338 ':DOUBLE)
                              (RTOL2-REF8339 ':DOUBLE) (OFFSET-REF8340 ':INT32)
                              (PIVMIN-REF8346 ':DOUBLE)
                              (SPDIAM-REF8347 ':DOUBLE) (TWIST-REF8348 ':INT32)
                              (INFO-REF8349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8333 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8336 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8337 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8338 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8339 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8340 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8346 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8347 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF8348 :INT32) TWIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8334 D) (LLD-REF8335 LLD)
                                            (W-REF8341 W) (WGAP-REF8342 WGAP)
                                            (WERR-REF8343 WERR)
                                            (WORK-REF8344 WORK)
                                            (IWORK-REF8345 IWORK))
      (%%DLARRB N-REF8333 D-REF8334 LLD-REF8335 IFIRST-REF8336 ILAST-REF8337
                RTOL1-REF8338 RTOL2-REF8339 OFFSET-REF8340 W-REF8341
                WGAP-REF8342 WERR-REF8343 WORK-REF8344 IWORK-REF8345
                PIVMIN-REF8346 SPDIAM-REF8347 TWIST-REF8348 INFO-REF8349))))

(CFFI:DEFCFUN ("dlarrc_" %%DLARRC :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (JOBT :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (PIVMIN :POINTER)
  (EIGCNT :POINTER)
  (LCNT :POINTER)
  (RCNT :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRC (JOBT N VL VU D E PIVMIN EIGCNT LCNT RCNT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRC)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) EIGCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8351 ':INT32) (VL-REF8352 ':DOUBLE)
                              (VU-REF8353 ':DOUBLE) (PIVMIN-REF8356 ':DOUBLE)
                              (EIGCNT-REF8357 ':INT32) (LCNT-REF8358 ':INT32)
                              (RCNT-REF8359 ':INT32) (INFO-REF8360 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8351 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8352 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8353 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8356 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF8357 :INT32) EIGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF8358 :INT32) LCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF8359 :INT32) RCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8360 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8354 D) (E-REF8355 E))
      (%%DLARRC JOBT N-REF8351 VL-REF8352 VU-REF8353 D-REF8354 E-REF8355
                PIVMIN-REF8356 EIGCNT-REF8357 LCNT-REF8358 RCNT-REF8359
                INFO-REF8360))))

(CFFI:DEFCFUN ("dlarrd_" %%DLARRD :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (ORDER :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (GERS :POINTER)
  (RELTOL :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WL :POINTER)
  (WU :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRD
                   (RANGE ORDER N VL VU IL IU GERS RELTOL D E E2 PIVMIN NSPLIT
                    ISPLIT M W WERR WL WU IBLOCK INDEXW WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRD)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8363 ':INT32) (VL-REF8364 ':DOUBLE)
                              (VU-REF8365 ':DOUBLE) (IL-REF8366 ':INT32)
                              (IU-REF8367 ':INT32) (RELTOL-REF8369 ':DOUBLE)
                              (PIVMIN-REF8373 ':DOUBLE)
                              (NSPLIT-REF8374 ':INT32) (M-REF8376 ':INT32)
                              (WL-REF8379 ':DOUBLE) (WU-REF8380 ':DOUBLE)
                              (INFO-REF8385 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8363 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8364 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8365 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8366 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8367 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8369 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8373 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8374 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8376 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF WL-REF8379 :DOUBLE) WL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WU-REF8380 :DOUBLE) WU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8385 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((GERS-REF8368 GERS) (D-REF8370 D)
                                            (E-REF8371 E) (E2-REF8372 E2)
                                            (ISPLIT-REF8375 ISPLIT)
                                            (W-REF8377 W) (WERR-REF8378 WERR)
                                            (IBLOCK-REF8381 IBLOCK)
                                            (INDEXW-REF8382 INDEXW)
                                            (WORK-REF8383 WORK)
                                            (IWORK-REF8384 IWORK))
      (%%DLARRD RANGE ORDER N-REF8363 VL-REF8364 VU-REF8365 IL-REF8366
                IU-REF8367 GERS-REF8368 RELTOL-REF8369 D-REF8370 E-REF8371
                E2-REF8372 PIVMIN-REF8373 NSPLIT-REF8374 ISPLIT-REF8375
                M-REF8376 W-REF8377 WERR-REF8378 WL-REF8379 WU-REF8380
                IBLOCK-REF8381 INDEXW-REF8382 WORK-REF8383 IWORK-REF8384
                INFO-REF8385))))

(CFFI:DEFCFUN ("dlarre_" %%DLARRE :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (RANGE :STRING)
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (IL :POINTER)
  (IU :POINTER)
  (D :POINTER)
  (E :POINTER)
  (E2 :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (SPLTOL :POINTER)
  (NSPLIT :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (PIVMIN :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRE
                   (RANGE N VL VU IL IU D E E2 RTOL1 RTOL2 SPLTOL NSPLIT ISPLIT
                    M W WERR WGAP IBLOCK INDEXW GERS PIVMIN WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPLTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8387 ':INT32) (VL-REF8388 ':DOUBLE)
                              (VU-REF8389 ':DOUBLE) (IL-REF8390 ':INT32)
                              (IU-REF8391 ':INT32) (RTOL1-REF8395 ':DOUBLE)
                              (RTOL2-REF8396 ':DOUBLE)
                              (SPLTOL-REF8397 ':DOUBLE)
                              (NSPLIT-REF8398 ':INT32) (M-REF8400 ':INT32)
                              (PIVMIN-REF8407 ':DOUBLE) (INFO-REF8410 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8387 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8388 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8389 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8390 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8391 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8395 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8396 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPLTOL-REF8397 :DOUBLE) SPLTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF8398 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8400 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8407 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8410 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8392 D) (E-REF8393 E)
                                            (E2-REF8394 E2)
                                            (ISPLIT-REF8399 ISPLIT)
                                            (W-REF8401 W) (WERR-REF8402 WERR)
                                            (WGAP-REF8403 WGAP)
                                            (IBLOCK-REF8404 IBLOCK)
                                            (INDEXW-REF8405 INDEXW)
                                            (GERS-REF8406 GERS)
                                            (WORK-REF8408 WORK)
                                            (IWORK-REF8409 IWORK))
      (%%DLARRE RANGE N-REF8387 VL-REF8388 VU-REF8389 IL-REF8390 IU-REF8391
                D-REF8392 E-REF8393 E2-REF8394 RTOL1-REF8395 RTOL2-REF8396
                SPLTOL-REF8397 NSPLIT-REF8398 ISPLIT-REF8399 M-REF8400
                W-REF8401 WERR-REF8402 WGAP-REF8403 IBLOCK-REF8404
                INDEXW-REF8405 GERS-REF8406 PIVMIN-REF8407 WORK-REF8408
                IWORK-REF8409 INFO-REF8410))))

(CFFI:DEFCFUN ("dlarrf_" %%DLARRF :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (L :POINTER)
  (LD :POINTER)
  (CLSTRT :POINTER)
  (CLEND :POINTER)
  (W :POINTER)
  (WGAP :POINTER)
  (WERR :POINTER)
  (SPDIAM :POINTER)
  (CLGAPL :POINTER)
  (CLGAPR :POINTER)
  (PIVMIN :POINTER)
  (SIGMA :POINTER)
  (DPLUS :POINTER)
  (LPLUS :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRF
                   (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR
                    PIVMIN SIGMA DPLUS LPLUS WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRF)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CLGAPR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        LPLUS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8411 ':INT32) (CLSTRT-REF8415 ':INT32)
                              (CLEND-REF8416 ':INT32) (SPDIAM-REF8420 ':DOUBLE)
                              (CLGAPL-REF8421 ':DOUBLE)
                              (CLGAPR-REF8422 ':DOUBLE)
                              (PIVMIN-REF8423 ':DOUBLE)
                              (SIGMA-REF8424 ':DOUBLE) (INFO-REF8428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8411 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF8415 :INT32) CLSTRT)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF8416 :INT32) CLEND)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8420 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF8421 :DOUBLE) CLGAPL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF8422 :DOUBLE) CLGAPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8423 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8424 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8428 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8412 D) (L-REF8413 L)
                                            (LD-REF8414 LD) (W-REF8417 W)
                                            (WGAP-REF8418 WGAP)
                                            (WERR-REF8419 WERR)
                                            (DPLUS-REF8425 DPLUS)
                                            (LPLUS-REF8426 LPLUS)
                                            (WORK-REF8427 WORK))
      (%%DLARRF N-REF8411 D-REF8412 L-REF8413 LD-REF8414 CLSTRT-REF8415
                CLEND-REF8416 W-REF8417 WGAP-REF8418 WERR-REF8419
                SPDIAM-REF8420 CLGAPL-REF8421 CLGAPR-REF8422 PIVMIN-REF8423
                SIGMA-REF8424 DPLUS-REF8425 LPLUS-REF8426 WORK-REF8427
                INFO-REF8428))))

(CFFI:DEFCFUN ("dlarrj_" %%DLARRJ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (IFIRST :POINTER)
  (ILAST :POINTER)
  (RTOL :POINTER)
  (OFFSET :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (PIVMIN :POINTER)
  (SPDIAM :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRJ
                   (N D E2 IFIRST ILAST RTOL OFFSET W WERR WORK IWORK PIVMIN
                    SPDIAM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRJ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8429 ':INT32) (IFIRST-REF8432 ':INT32)
                              (ILAST-REF8433 ':INT32) (RTOL-REF8434 ':DOUBLE)
                              (OFFSET-REF8435 ':INT32)
                              (PIVMIN-REF8440 ':DOUBLE)
                              (SPDIAM-REF8441 ':DOUBLE) (INFO-REF8442 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF8432 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF8433 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF8434 :DOUBLE) RTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF8435 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8440 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF8441 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8442 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8430 D) (E2-REF8431 E2)
                                            (W-REF8436 W) (WERR-REF8437 WERR)
                                            (WORK-REF8438 WORK)
                                            (IWORK-REF8439 IWORK))
      (%%DLARRJ N-REF8429 D-REF8430 E2-REF8431 IFIRST-REF8432 ILAST-REF8433
                RTOL-REF8434 OFFSET-REF8435 W-REF8436 WERR-REF8437 WORK-REF8438
                IWORK-REF8439 PIVMIN-REF8440 SPDIAM-REF8441 INFO-REF8442))))

(CFFI:DEFCFUN ("dlarrk_" %%DLARRK :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (IW :POINTER)
  (GL :POINTER)
  (GU :POINTER)
  (D :POINTER)
  (E2 :POINTER)
  (PIVMIN :POINTER)
  (RELTOL :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRK (N IW GL GU D E2 PIVMIN RELTOL W WERR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IW)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT W)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT WERR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8443 ':INT32) (IW-REF8444 ':INT32)
                              (GL-REF8445 ':DOUBLE) (GU-REF8446 ':DOUBLE)
                              (PIVMIN-REF8449 ':DOUBLE)
                              (RELTOL-REF8450 ':DOUBLE) (W-REF8451 ':DOUBLE)
                              (WERR-REF8452 ':DOUBLE) (INFO-REF8453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8443 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IW-REF8444 :INT32) IW)
    (COMMON-LISP:SETF (CFFI:MEM-REF GL-REF8445 :DOUBLE) GL)
    (COMMON-LISP:SETF (CFFI:MEM-REF GU-REF8446 :DOUBLE) GU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8449 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF8450 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF W-REF8451 :DOUBLE) W)
    (COMMON-LISP:SETF (CFFI:MEM-REF WERR-REF8452 :DOUBLE) WERR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8453 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8447 D) (E2-REF8448 E2))
      (%%DLARRK N-REF8443 IW-REF8444 GL-REF8445 GU-REF8446 D-REF8447 E2-REF8448
                PIVMIN-REF8449 RELTOL-REF8450 W-REF8451 WERR-REF8452
                INFO-REF8453))))

(CFFI:DEFCFUN ("dlarrr_" %%DLARRR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRR (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8454 ':INT32) (INFO-REF8457 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8457 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8455 D) (E-REF8456 E))
      (%%DLARRR N-REF8454 D-REF8455 E-REF8456 INFO-REF8457))))

(CFFI:DEFCFUN ("dlarrv_" %%DLARRV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (VL :POINTER)
  (VU :POINTER)
  (D :POINTER)
  (L :POINTER)
  (PIVMIN :POINTER)
  (ISPLIT :POINTER)
  (M :POINTER)
  (DOL :POINTER)
  (DOU :POINTER)
  (MINRGP :POINTER)
  (RTOL1 :POINTER)
  (RTOL2 :POINTER)
  (W :POINTER)
  (WERR :POINTER)
  (WGAP :POINTER)
  (IBLOCK :POINTER)
  (INDEXW :POINTER)
  (GERS :POINTER)
  (Z :POINTER)
  (LDZ :POINTER)
  (ISUPPZ :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLARRV
                   (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W
                    WERR WGAP IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISPLIT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WERR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WGAP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IBLOCK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INDEXW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GERS)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISUPPZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8458 ':INT32) (VL-REF8459 ':DOUBLE)
                              (VU-REF8460 ':DOUBLE) (PIVMIN-REF8463 ':DOUBLE)
                              (M-REF8465 ':INT32) (DOL-REF8466 ':INT32)
                              (DOU-REF8467 ':INT32) (MINRGP-REF8468 ':DOUBLE)
                              (RTOL1-REF8469 ':DOUBLE) (RTOL2-REF8470 ':DOUBLE)
                              (LDZ-REF8478 ':INT32) (INFO-REF8482 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8459 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8460 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8463 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8465 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF8466 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF8467 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF8468 :DOUBLE) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8469 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8470 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8478 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8482 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8461 D) (L-REF8462 L)
                                            (ISPLIT-REF8464 ISPLIT)
                                            (W-REF8471 W) (WERR-REF8472 WERR)
                                            (WGAP-REF8473 WGAP)
                                            (IBLOCK-REF8474 IBLOCK)
                                            (INDEXW-REF8475 INDEXW)
                                            (GERS-REF8476 GERS) (Z-REF8477 Z)
                                            (ISUPPZ-REF8479 ISUPPZ)
                                            (WORK-REF8480 WORK)
                                            (IWORK-REF8481 IWORK))
      (%%DLARRV N-REF8458 VL-REF8459 VU-REF8460 D-REF8461 L-REF8462
                PIVMIN-REF8463 ISPLIT-REF8464 M-REF8465 DOL-REF8466 DOU-REF8467
                MINRGP-REF8468 RTOL1-REF8469 RTOL2-REF8470 W-REF8471
                WERR-REF8472 WGAP-REF8473 IBLOCK-REF8474 INDEXW-REF8475
                GERS-REF8476 Z-REF8477 LDZ-REF8478 ISUPPZ-REF8479 WORK-REF8480
                IWORK-REF8481 INFO-REF8482))))

(CFFI:DEFCFUN ("dlarscl2_" %%DLARSCL2 :LIBRARY
               MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %DLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARSCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8483 ':INT32) (N-REF8484 ':INT32)
                              (LDX-REF8487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8483 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8484 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8487 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8485 D) (X-REF8486 X))
      (%%DLARSCL2 M-REF8483 N-REF8484 D-REF8485 X-REF8486 LDX-REF8487))))

(CFFI:DEFCFUN ("dlartg_" %%DLARTG :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %DLARTG (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8488 ':DOUBLE) (G-REF8489 ':DOUBLE)
                              (CS-REF8490 ':DOUBLE) (SN-REF8491 ':DOUBLE)
                              (R-REF8492 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8488 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8489 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8490 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8491 :DOUBLE) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8492 :DOUBLE) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTG F-REF8488 G-REF8489 CS-REF8490 SN-REF8491 R-REF8492))))

(CFFI:DEFCFUN ("dlartgp_" %%DLARTGP :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (CS :POINTER)
  (SN :POINTER)
  (R :POINTER))

(COMMON-LISP:DEFUN %DLARTGP (F G CS SN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT R))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8493 ':DOUBLE) (G-REF8494 ':DOUBLE)
                              (CS-REF8495 ':DOUBLE) (SN-REF8496 ':DOUBLE)
                              (R-REF8497 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8493 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8494 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8495 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8496 :DOUBLE) SN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF8497 :DOUBLE) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTGP F-REF8493 G-REF8494 CS-REF8495 SN-REF8496 R-REF8497))))

(CFFI:DEFCFUN ("dlartgs_" %%DLARTGS :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (X :POINTER)
  (Y :POINTER)
  (SIGMA :POINTER)
  (CS :POINTER)
  (SN :POINTER))

(COMMON-LISP:DEFUN %DLARTGS (X Y SIGMA CS SN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTGS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CS)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SN))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF8498 ':DOUBLE) (Y-REF8499 ':DOUBLE)
                              (SIGMA-REF8500 ':DOUBLE) (CS-REF8501 ':DOUBLE)
                              (SN-REF8502 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF8498 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF8499 :DOUBLE) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8500 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF CS-REF8501 :DOUBLE) CS)
    (COMMON-LISP:SETF (CFFI:MEM-REF SN-REF8502 :DOUBLE) SN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLARTGS X-REF8498 Y-REF8499 SIGMA-REF8500 CS-REF8501 SN-REF8502))))

(CFFI:DEFCFUN ("dlartv_" %%DLARTV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INCC :POINTER))

(COMMON-LISP:DEFUN %DLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARTV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8503 ':INT32) (INCX-REF8505 ':INT32)
                              (INCY-REF8507 ':INT32) (INCC-REF8510 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8503 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8505 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF8507 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8510 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8504 X) (Y-REF8506 Y)
                                            (C-REF8508 C) (S-REF8509 S))
      (%%DLARTV N-REF8503 X-REF8504 INCX-REF8505 Y-REF8506 INCY-REF8507
                C-REF8508 S-REF8509 INCC-REF8510))))

(CFFI:DEFCFUN ("dlaruv_" %%DLARUV :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ISEED :POINTER)
  (N :POINTER)
  (X :POINTER))

(COMMON-LISP:DEFUN %DLARUV (ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARUV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        ISEED)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8512 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF8511 ISEED) (X-REF8513 X))
      (%%DLARUV ISEED-REF8511 N-REF8512 X-REF8513))))

(CFFI:DEFCFUN ("dlarz_" %%DLARZ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (M :POINTER)
  (N :POINTER)
  (L :POINTER)
  (V :POINTER)
  (INCV :POINTER)
  (TAU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8515 ':INT32) (N-REF8516 ':INT32)
                              (L-REF8517 ':INT32) (INCV-REF8519 ':INT32)
                              (TAU-REF8520 ':DOUBLE) (LDC-REF8522 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8515 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8516 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8517 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF8519 :INT32) INCV)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8520 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8522 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8518 V) (C-REF8521 C)
                                            (WORK-REF8523 WORK))
      (%%DLARZ SIDE M-REF8515 N-REF8516 L-REF8517 V-REF8518 INCV-REF8519
               TAU-REF8520 C-REF8521 LDC-REF8522 WORK-REF8523))))

(CFFI:DEFCFUN ("dlarzb_" %%DLARZB :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (TRANS :STRING)
  (DIRECT :STRING)
  (STOREV :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (L :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (LDWORK :POINTER))

(COMMON-LISP:DEFUN %DLARZB
                   (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK
                    LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZB)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8528 ':INT32) (N-REF8529 ':INT32)
                              (K-REF8530 ':INT32) (L-REF8531 ':INT32)
                              (LDV-REF8533 ':INT32) (LDT-REF8535 ':INT32)
                              (LDC-REF8537 ':INT32) (LDWORK-REF8539 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8528 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8529 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8530 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8531 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8533 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8535 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8537 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF8539 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8532 V) (T-REF8534 T)
                                            (C-REF8536 C) (WORK-REF8538 WORK))
      (%%DLARZB SIDE TRANS DIRECT STOREV M-REF8528 N-REF8529 K-REF8530
                L-REF8531 V-REF8532 LDV-REF8533 T-REF8534 LDT-REF8535 C-REF8536
                LDC-REF8537 WORK-REF8538 LDWORK-REF8539))))

(CFFI:DEFCFUN ("dlarzt_" %%DLARZT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (DIRECT :STRING)
  (STOREV :STRING)
  (N :POINTER)
  (K :POINTER)
  (V :POINTER)
  (LDV :POINTER)
  (TAU :POINTER)
  (T :POINTER)
  (LDT :POINTER))

(COMMON-LISP:DEFUN %DLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        TAU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8542 ':INT32) (K-REF8543 ':INT32)
                              (LDV-REF8545 ':INT32) (LDT-REF8548 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8542 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8543 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8545 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8548 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8544 V) (TAU-REF8546 TAU)
                                            (T-REF8547 T))
      (%%DLARZT DIRECT STOREV N-REF8542 K-REF8543 V-REF8544 LDV-REF8545
                TAU-REF8546 T-REF8547 LDT-REF8548))))

(CFFI:DEFCFUN ("dlas2_" %%DLAS2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER))

(COMMON-LISP:DEFUN %DLAS2 (F G H SSMIN SSMAX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAS2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8549 ':DOUBLE) (G-REF8550 ':DOUBLE)
                              (H-REF8551 ':DOUBLE) (SSMIN-REF8552 ':DOUBLE)
                              (SSMAX-REF8553 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8549 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8550 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8551 :DOUBLE) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8552 :DOUBLE) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8553 :DOUBLE) SSMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAS2 F-REF8549 G-REF8550 H-REF8551 SSMIN-REF8552 SSMAX-REF8553))))

(CFFI:DEFCFUN ("dlascl_" %%DLASCL :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (TYPE :STRING)
  (KL :POINTER)
  (KU :POINTER)
  (CFROM :POINTER)
  (CTO :POINTER)
  (M :POINTER)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8555 ':INT32) (KU-REF8556 ':INT32)
                              (CFROM-REF8557 ':DOUBLE) (CTO-REF8558 ':DOUBLE)
                              (M-REF8559 ':INT32) (N-REF8560 ':INT32)
                              (LDA-REF8562 ':INT32) (INFO-REF8563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8555 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8556 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8557 :DOUBLE) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8558 :DOUBLE) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8559 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8562 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8561 A))
      (%%DLASCL TYPE KL-REF8555 KU-REF8556 CFROM-REF8557 CTO-REF8558 M-REF8559
                N-REF8560 A-REF8561 LDA-REF8562 INFO-REF8563))))

(CFFI:DEFCFUN ("dlascl2_" %%DLASCL2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (D :POINTER)
  (X :POINTER)
  (LDX :POINTER))

(COMMON-LISP:DEFUN %DLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8564 ':INT32) (N-REF8565 ':INT32)
                              (LDX-REF8568 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8564 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8565 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8568 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8566 D) (X-REF8567 X))
      (%%DLASCL2 M-REF8564 N-REF8565 D-REF8566 X-REF8567 LDX-REF8568))))

(CFFI:DEFCFUN ("dlasd0_" %%DLASD0 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (SMLSIZ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD0 (N SQRE D E U LDU VT LDVT SMLSIZ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8569 ':INT32) (SQRE-REF8570 ':INT32)
                              (LDU-REF8574 ':INT32) (LDVT-REF8576 ':INT32)
                              (SMLSIZ-REF8577 ':INT32) (INFO-REF8580 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8569 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8570 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8574 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8576 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8577 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8580 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8571 D) (E-REF8572 E)
                                            (U-REF8573 U) (VT-REF8575 VT)
                                            (IWORK-REF8578 IWORK)
                                            (WORK-REF8579 WORK))
      (%%DLASD0 N-REF8569 SQRE-REF8570 D-REF8571 E-REF8572 U-REF8573
                LDU-REF8574 VT-REF8575 LDVT-REF8576 SMLSIZ-REF8577
                IWORK-REF8578 WORK-REF8579 INFO-REF8580))))

(CFFI:DEFCFUN ("dlasd1_" %%DLASD1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (IDXQ :POINTER)
  (IWORK :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD1
                   (NL NR SQRE D ALPHA BETA U LDU VT LDVT IDXQ IWORK WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8581 ':INT32) (NR-REF8582 ':INT32)
                              (SQRE-REF8583 ':INT32) (ALPHA-REF8585 ':DOUBLE)
                              (BETA-REF8586 ':DOUBLE) (LDU-REF8588 ':INT32)
                              (LDVT-REF8590 ':INT32) (INFO-REF8594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8581 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8582 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8583 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8585 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8586 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8588 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8590 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8594 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8584 D) (U-REF8587 U)
                                            (VT-REF8589 VT) (IDXQ-REF8591 IDXQ)
                                            (IWORK-REF8592 IWORK)
                                            (WORK-REF8593 WORK))
      (%%DLASD1 NL-REF8581 NR-REF8582 SQRE-REF8583 D-REF8584 ALPHA-REF8585
                BETA-REF8586 U-REF8587 LDU-REF8588 VT-REF8589 LDVT-REF8590
                IDXQ-REF8591 IWORK-REF8592 WORK-REF8593 INFO-REF8594))))

(CFFI:DEFCFUN ("dlasd2_" %%DLASD2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (DSIGMA :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXP :POINTER)
  (IDX :POINTER)
  (IDXC :POINTER)
  (IDXQ :POINTER)
  (COLTYP :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD2
                   (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2
                    VT2 LDVT2 IDXP IDX IDXC IDXQ COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        COLTYP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8595 ':INT32) (NR-REF8596 ':INT32)
                              (SQRE-REF8597 ':INT32) (K-REF8598 ':INT32)
                              (ALPHA-REF8601 ':DOUBLE) (BETA-REF8602 ':DOUBLE)
                              (LDU-REF8604 ':INT32) (LDVT-REF8606 ':INT32)
                              (LDU2-REF8609 ':INT32) (LDVT2-REF8611 ':INT32)
                              (INFO-REF8617 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8595 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8596 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8597 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8598 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8601 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8602 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8604 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8606 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8609 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8611 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8617 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8599 D) (Z-REF8600 Z)
                                            (U-REF8603 U) (VT-REF8605 VT)
                                            (DSIGMA-REF8607 DSIGMA)
                                            (U2-REF8608 U2) (VT2-REF8610 VT2)
                                            (IDXP-REF8612 IDXP)
                                            (IDX-REF8613 IDX)
                                            (IDXC-REF8614 IDXC)
                                            (IDXQ-REF8615 IDXQ)
                                            (COLTYP-REF8616 COLTYP))
      (%%DLASD2 NL-REF8595 NR-REF8596 SQRE-REF8597 K-REF8598 D-REF8599
                Z-REF8600 ALPHA-REF8601 BETA-REF8602 U-REF8603 LDU-REF8604
                VT-REF8605 LDVT-REF8606 DSIGMA-REF8607 U2-REF8608 LDU2-REF8609
                VT2-REF8610 LDVT2-REF8611 IDXP-REF8612 IDX-REF8613 IDXC-REF8614
                IDXQ-REF8615 COLTYP-REF8616 INFO-REF8617))))

(CFFI:DEFCFUN ("dlasd3_" %%DLASD3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Q :POINTER)
  (LDQ :POINTER)
  (DSIGMA :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (U2 :POINTER)
  (LDU2 :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (VT2 :POINTER)
  (LDVT2 :POINTER)
  (IDXC :POINTER)
  (CTOT :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD3
                   (NL NR SQRE K D Q LDQ DSIGMA U LDU U2 LDU2 VT LDVT VT2 LDVT2
                    IDXC CTOT Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VT2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        CTOT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF8618 ':INT32) (NR-REF8619 ':INT32)
                              (SQRE-REF8620 ':INT32) (K-REF8621 ':INT32)
                              (LDQ-REF8624 ':INT32) (LDU-REF8627 ':INT32)
                              (LDU2-REF8629 ':INT32) (LDVT-REF8631 ':INT32)
                              (LDVT2-REF8633 ':INT32) (INFO-REF8637 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8618 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8619 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8620 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8621 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8624 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8627 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF8629 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8631 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF8633 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8637 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8622 D) (Q-REF8623 Q)
                                            (DSIGMA-REF8625 DSIGMA)
                                            (U-REF8626 U) (U2-REF8628 U2)
                                            (VT-REF8630 VT) (VT2-REF8632 VT2)
                                            (IDXC-REF8634 IDXC)
                                            (CTOT-REF8635 CTOT) (Z-REF8636 Z))
      (%%DLASD3 NL-REF8618 NR-REF8619 SQRE-REF8620 K-REF8621 D-REF8622
                Q-REF8623 LDQ-REF8624 DSIGMA-REF8625 U-REF8626 LDU-REF8627
                U2-REF8628 LDU2-REF8629 VT-REF8630 LDVT-REF8631 VT2-REF8632
                LDVT2-REF8633 IDXC-REF8634 CTOT-REF8635 Z-REF8636
                INFO-REF8637))))

(CFFI:DEFCFUN ("dlasd4_" %%DLASD4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (SIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD4 (N I D Z DELTA RHO SIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8638 ':INT32) (I-REF8639 ':INT32)
                              (RHO-REF8643 ':DOUBLE) (SIGMA-REF8644 ':DOUBLE)
                              (INFO-REF8646 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8639 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8643 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8644 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8646 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8640 D) (Z-REF8641 Z)
                                            (DELTA-REF8642 DELTA)
                                            (WORK-REF8645 WORK))
      (%%DLASD4 N-REF8638 I-REF8639 D-REF8640 Z-REF8641 DELTA-REF8642
                RHO-REF8643 SIGMA-REF8644 WORK-REF8645 INFO-REF8646))))

(CFFI:DEFCFUN ("dlasd5_" %%DLASD5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (DELTA :POINTER)
  (RHO :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER))

(COMMON-LISP:DEFUN %DLASD5 (I D Z DELTA RHO DSIGMA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DELTA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF8647 ':INT32) (RHO-REF8651 ':DOUBLE)
                              (DSIGMA-REF8652 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF8647 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8651 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF8652 :DOUBLE) DSIGMA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8648 D) (Z-REF8649 Z)
                                            (DELTA-REF8650 DELTA)
                                            (WORK-REF8653 WORK))
      (%%DLASD5 I-REF8647 D-REF8648 Z-REF8649 DELTA-REF8650 RHO-REF8651
                DSIGMA-REF8652 WORK-REF8653))))

(CFFI:DEFCFUN ("dlasd6_" %%DLASD6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (POLES :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (K :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD6
                   (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR
                    GIVCOL LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK
                    IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8654 ':INT32) (NL-REF8655 ':INT32)
                              (NR-REF8656 ':INT32) (SQRE-REF8657 ':INT32)
                              (ALPHA-REF8661 ':DOUBLE) (BETA-REF8662 ':DOUBLE)
                              (GIVPTR-REF8665 ':INT32) (LDGCOL-REF8667 ':INT32)
                              (LDGNUM-REF8669 ':INT32) (K-REF8674 ':INT32)
                              (C-REF8675 ':DOUBLE) (S-REF8676 ':DOUBLE)
                              (INFO-REF8679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8654 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8655 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8656 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8657 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8661 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8662 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8665 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8667 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8669 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8674 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8675 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8676 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8658 D) (VF-REF8659 VF)
                                            (VL-REF8660 VL) (IDXQ-REF8663 IDXQ)
                                            (PERM-REF8664 PERM)
                                            (GIVCOL-REF8666 GIVCOL)
                                            (GIVNUM-REF8668 GIVNUM)
                                            (POLES-REF8670 POLES)
                                            (DIFL-REF8671 DIFL)
                                            (DIFR-REF8672 DIFR) (Z-REF8673 Z)
                                            (WORK-REF8677 WORK)
                                            (IWORK-REF8678 IWORK))
      (%%DLASD6 ICOMPQ-REF8654 NL-REF8655 NR-REF8656 SQRE-REF8657 D-REF8658
                VF-REF8659 VL-REF8660 ALPHA-REF8661 BETA-REF8662 IDXQ-REF8663
                PERM-REF8664 GIVPTR-REF8665 GIVCOL-REF8666 LDGCOL-REF8667
                GIVNUM-REF8668 LDGNUM-REF8669 POLES-REF8670 DIFL-REF8671
                DIFR-REF8672 Z-REF8673 K-REF8674 C-REF8675 S-REF8676
                WORK-REF8677 IWORK-REF8678 INFO-REF8679))))

(CFFI:DEFCFUN ("dlasd7_" %%DLASD7 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (NL :POINTER)
  (NR :POINTER)
  (SQRE :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (ZW :POINTER)
  (VF :POINTER)
  (VFW :POINTER)
  (VL :POINTER)
  (VLW :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (DSIGMA :POINTER)
  (IDX :POINTER)
  (IDXP :POINTER)
  (IDXQ :POINTER)
  (PERM :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (GIVNUM :POINTER)
  (LDGNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD7
                   (ICOMPQ NL NR SQRE K D Z ZW VF VFW VL VLW ALPHA BETA DSIGMA
                    IDX IDXP IDXQ PERM GIVPTR GIVCOL LDGCOL GIVNUM LDGNUM C S
                    INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD7)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ZW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VFW)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        VLW)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IDXQ)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8680 ':INT32) (NL-REF8681 ':INT32)
                              (NR-REF8682 ':INT32) (SQRE-REF8683 ':INT32)
                              (K-REF8684 ':INT32) (ALPHA-REF8692 ':DOUBLE)
                              (BETA-REF8693 ':DOUBLE) (GIVPTR-REF8699 ':INT32)
                              (LDGCOL-REF8701 ':INT32) (LDGNUM-REF8703 ':INT32)
                              (C-REF8704 ':DOUBLE) (S-REF8705 ':DOUBLE)
                              (INFO-REF8706 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8680 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF8681 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF8682 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8683 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8684 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8692 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8693 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF8699 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8701 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF8703 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF8704 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF8705 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8706 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8685 D) (Z-REF8686 Z)
                                            (ZW-REF8687 ZW) (VF-REF8688 VF)
                                            (VFW-REF8689 VFW) (VL-REF8690 VL)
                                            (VLW-REF8691 VLW)
                                            (DSIGMA-REF8694 DSIGMA)
                                            (IDX-REF8695 IDX)
                                            (IDXP-REF8696 IDXP)
                                            (IDXQ-REF8697 IDXQ)
                                            (PERM-REF8698 PERM)
                                            (GIVCOL-REF8700 GIVCOL)
                                            (GIVNUM-REF8702 GIVNUM))
      (%%DLASD7 ICOMPQ-REF8680 NL-REF8681 NR-REF8682 SQRE-REF8683 K-REF8684
                D-REF8685 Z-REF8686 ZW-REF8687 VF-REF8688 VFW-REF8689
                VL-REF8690 VLW-REF8691 ALPHA-REF8692 BETA-REF8693
                DSIGMA-REF8694 IDX-REF8695 IDXP-REF8696 IDXQ-REF8697
                PERM-REF8698 GIVPTR-REF8699 GIVCOL-REF8700 LDGCOL-REF8701
                GIVNUM-REF8702 LDGNUM-REF8703 C-REF8704 S-REF8705
                INFO-REF8706))))

(CFFI:DEFCFUN ("dlasd8_" %%DLASD8 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (K :POINTER)
  (D :POINTER)
  (Z :POINTER)
  (VF :POINTER)
  (VL :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (LDDIFR :POINTER)
  (DSIGMA :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASD8
                   (ICOMPQ K D Z VF VL DIFL DIFR LDDIFR DSIGMA WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD8)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDDIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DSIGMA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8707 ':INT32) (K-REF8708 ':INT32)
                              (LDDIFR-REF8715 ':INT32) (INFO-REF8718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8707 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8708 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDDIFR-REF8715 :INT32) LDDIFR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8718 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8709 D) (Z-REF8710 Z)
                                            (VF-REF8711 VF) (VL-REF8712 VL)
                                            (DIFL-REF8713 DIFL)
                                            (DIFR-REF8714 DIFR)
                                            (DSIGMA-REF8716 DSIGMA)
                                            (WORK-REF8717 WORK))
      (%%DLASD8 ICOMPQ-REF8707 K-REF8708 D-REF8709 Z-REF8710 VF-REF8711
                VL-REF8712 DIFL-REF8713 DIFR-REF8714 LDDIFR-REF8715
                DSIGMA-REF8716 WORK-REF8717 INFO-REF8718))))

(CFFI:DEFCFUN ("dlasda_" %%DLASDA :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ICOMPQ :POINTER)
  (SMLSIZ :POINTER)
  (N :POINTER)
  (SQRE :POINTER)
  (D :POINTER)
  (E :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (VT :POINTER)
  (K :POINTER)
  (DIFL :POINTER)
  (DIFR :POINTER)
  (Z :POINTER)
  (POLES :POINTER)
  (GIVPTR :POINTER)
  (GIVCOL :POINTER)
  (LDGCOL :POINTER)
  (PERM :POINTER)
  (GIVNUM :POINTER)
  (C :POINTER)
  (S :POINTER)
  (WORK :POINTER)
  (IWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASDA
                   (ICOMPQ SMLSIZ N SQRE D E U LDU VT K DIFL DIFR Z POLES
                    GIVPTR GIVCOL LDGCOL PERM GIVNUM C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDA)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DIFR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        POLES)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVPTR)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        GIVCOL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        PERM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        GIVNUM)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        IWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF8719 ':INT32) (SMLSIZ-REF8720 ':INT32)
                              (N-REF8721 ':INT32) (SQRE-REF8722 ':INT32)
                              (LDU-REF8726 ':INT32) (LDGCOL-REF8735 ':INT32)
                              (INFO-REF8742 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF8719 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8720 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8722 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8726 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF8735 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8742 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8723 D) (E-REF8724 E)
                                            (U-REF8725 U) (VT-REF8727 VT)
                                            (K-REF8728 K) (DIFL-REF8729 DIFL)
                                            (DIFR-REF8730 DIFR) (Z-REF8731 Z)
                                            (POLES-REF8732 POLES)
                                            (GIVPTR-REF8733 GIVPTR)
                                            (GIVCOL-REF8734 GIVCOL)
                                            (PERM-REF8736 PERM)
                                            (GIVNUM-REF8737 GIVNUM)
                                            (C-REF8738 C) (S-REF8739 S)
                                            (WORK-REF8740 WORK)
                                            (IWORK-REF8741 IWORK))
      (%%DLASDA ICOMPQ-REF8719 SMLSIZ-REF8720 N-REF8721 SQRE-REF8722 D-REF8723
                E-REF8724 U-REF8725 LDU-REF8726 VT-REF8727 K-REF8728
                DIFL-REF8729 DIFR-REF8730 Z-REF8731 POLES-REF8732
                GIVPTR-REF8733 GIVCOL-REF8734 LDGCOL-REF8735 PERM-REF8736
                GIVNUM-REF8737 C-REF8738 S-REF8739 WORK-REF8740 IWORK-REF8741
                INFO-REF8742))))

(CFFI:DEFCFUN ("dlasdq_" %%DLASDQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (SQRE :POINTER)
  (N :POINTER)
  (NCVT :POINTER)
  (NRU :POINTER)
  (NCC :POINTER)
  (D :POINTER)
  (E :POINTER)
  (VT :POINTER)
  (LDVT :POINTER)
  (U :POINTER)
  (LDU :POINTER)
  (C :POINTER)
  (LDC :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASDQ
                   (UPLO SQRE N NCVT NRU NCC D E VT LDVT U LDU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDQ)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCVT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SQRE-REF8744 ':INT32) (N-REF8745 ':INT32)
                              (NCVT-REF8746 ':INT32) (NRU-REF8747 ':INT32)
                              (NCC-REF8748 ':INT32) (LDVT-REF8752 ':INT32)
                              (LDU-REF8754 ':INT32) (LDC-REF8756 ':INT32)
                              (INFO-REF8758 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF8744 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8745 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCVT-REF8746 :INT32) NCVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRU-REF8747 :INT32) NRU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF8748 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8752 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8754 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8756 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8758 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8749 D) (E-REF8750 E)
                                            (VT-REF8751 VT) (U-REF8753 U)
                                            (C-REF8755 C) (WORK-REF8757 WORK))
      (%%DLASDQ UPLO SQRE-REF8744 N-REF8745 NCVT-REF8746 NRU-REF8747
                NCC-REF8748 D-REF8749 E-REF8750 VT-REF8751 LDVT-REF8752
                U-REF8753 LDU-REF8754 C-REF8755 LDC-REF8756 WORK-REF8757
                INFO-REF8758))))

(CFFI:DEFCFUN ("dlasdt_" %%DLASDT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (LVL :POINTER)
  (ND :POINTER)
  (INODE :POINTER)
  (NDIML :POINTER)
  (NDIMR :POINTER)
  (MSUB :POINTER))

(COMMON-LISP:DEFUN %DLASDT (N LVL ND INODE NDIML NDIMR MSUB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASDT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LVL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        INODE)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIML)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
                         (COMMON-LISP:*))
                        NDIMR)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MSUB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8759 ':INT32) (LVL-REF8760 ':INT32)
                              (ND-REF8761 ':INT32) (MSUB-REF8765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8759 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LVL-REF8760 :INT32) LVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF8761 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF MSUB-REF8765 :INT32) MSUB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((INODE-REF8762 INODE)
                                            (NDIML-REF8763 NDIML)
                                            (NDIMR-REF8764 NDIMR))
      (%%DLASDT N-REF8759 LVL-REF8760 ND-REF8761 INODE-REF8762 NDIML-REF8763
                NDIMR-REF8764 MSUB-REF8765))))

(CFFI:DEFCFUN ("dlaset_" %%DLASET :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (BETA :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DLASET (UPLO M N ALPHA BETA A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASET)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8767 ':INT32) (N-REF8768 ':INT32)
                              (ALPHA-REF8769 ':DOUBLE) (BETA-REF8770 ':DOUBLE)
                              (LDA-REF8772 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8767 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8769 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF8770 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8772 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8771 A))
      (%%DLASET UPLO M-REF8767 N-REF8768 ALPHA-REF8769 BETA-REF8770 A-REF8771
                LDA-REF8772))))

(CFFI:DEFCFUN ("dlasq1_" %%DLASQ1 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (D :POINTER)
  (E :POINTER)
  (WORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASQ1 (N D E WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ1)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8773 ':INT32) (INFO-REF8777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8773 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8774 D) (E-REF8775 E)
                                            (WORK-REF8776 WORK))
      (%%DLASQ1 N-REF8773 D-REF8774 E-REF8775 WORK-REF8776 INFO-REF8777))))

(CFFI:DEFCFUN ("dlasq2_" %%DLASQ2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (Z :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASQ2 (N Z INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8778 ':INT32) (INFO-REF8780 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8780 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8779 Z))
      (%%DLASQ2 N-REF8778 Z-REF8779 INFO-REF8780))))

(CFFI:DEFCFUN ("dlasq3_" %%DLASQ3 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (SIGMA :POINTER)
  (DESIG :POINTER)
  (QMAX :POINTER)
  (NFAIL :POINTER)
  (ITER :POINTER)
  (NDIV :POINTER)
  (IEEE :POINTER)
  (TTYPE :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (G :POINTER)
  (TAU :POINTER))

(COMMON-LISP:DEFUN %DLASQ3
                   (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE
                    DMIN1 DMIN2 DN DN1 DN2 G TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ3)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DESIG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT QMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8781 ':INT32) (N0-REF8782 ':INT32)
                              (PP-REF8784 ':INT32) (DMIN-REF8785 ':DOUBLE)
                              (SIGMA-REF8786 ':DOUBLE) (DESIG-REF8787 ':DOUBLE)
                              (QMAX-REF8788 ':DOUBLE) (NFAIL-REF8789 ':INT32)
                              (ITER-REF8790 ':INT32) (NDIV-REF8791 ':INT32)
                              (IEEE-REF8792 ':INT32) (TTYPE-REF8793 ':INT32)
                              (DMIN1-REF8794 ':DOUBLE) (DMIN2-REF8795 ':DOUBLE)
                              (DN-REF8796 ':DOUBLE) (DN1-REF8797 ':DOUBLE)
                              (DN2-REF8798 ':DOUBLE) (G-REF8799 ':DOUBLE)
                              (TAU-REF8800 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8781 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8782 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8784 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8785 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8786 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF8787 :DOUBLE) DESIG)
    (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF8788 :DOUBLE) QMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF8789 :INT32) NFAIL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF8790 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF8791 :INT32) NDIV)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8792 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8793 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8794 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8795 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8796 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8797 :DOUBLE) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8798 :DOUBLE) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8799 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8800 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8783 Z))
      (%%DLASQ3 I0-REF8781 N0-REF8782 Z-REF8783 PP-REF8784 DMIN-REF8785
                SIGMA-REF8786 DESIG-REF8787 QMAX-REF8788 NFAIL-REF8789
                ITER-REF8790 NDIV-REF8791 IEEE-REF8792 TTYPE-REF8793
                DMIN1-REF8794 DMIN2-REF8795 DN-REF8796 DN1-REF8797 DN2-REF8798
                G-REF8799 TAU-REF8800))))

(CFFI:DEFCFUN ("dlasq4_" %%DLASQ4 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (N0IN :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DN1 :POINTER)
  (DN2 :POINTER)
  (TAU :POINTER)
  (TTYPE :POINTER)
  (G :POINTER))

(COMMON-LISP:DEFUN %DLASQ4
                   (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ4)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8801 ':INT32) (N0-REF8802 ':INT32)
                              (PP-REF8804 ':INT32) (N0IN-REF8805 ':INT32)
                              (DMIN-REF8806 ':DOUBLE) (DMIN1-REF8807 ':DOUBLE)
                              (DMIN2-REF8808 ':DOUBLE) (DN-REF8809 ':DOUBLE)
                              (DN1-REF8810 ':DOUBLE) (DN2-REF8811 ':DOUBLE)
                              (TAU-REF8812 ':DOUBLE) (TTYPE-REF8813 ':INT32)
                              (G-REF8814 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8801 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8802 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8804 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF8805 :INT32) N0IN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8806 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8807 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8808 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8809 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF8810 :DOUBLE) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF8811 :DOUBLE) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8812 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF8813 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8814 :DOUBLE) G)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8803 Z))
      (%%DLASQ4 I0-REF8801 N0-REF8802 Z-REF8803 PP-REF8804 N0IN-REF8805
                DMIN-REF8806 DMIN1-REF8807 DMIN2-REF8808 DN-REF8809 DN1-REF8810
                DN2-REF8811 TAU-REF8812 TTYPE-REF8813 G-REF8814))))

(CFFI:DEFCFUN ("dlasq5_" %%DLASQ5 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (TAU :POINTER)
  (SIGMA :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER)
  (IEEE :POINTER)
  (EPS :POINTER))

(COMMON-LISP:DEFUN %DLASQ5
                   (I0 N0 Z PP TAU SIGMA DMIN DMIN1 DMIN2 DN DNM1 DNM2 IEEE
                    EPS)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ5)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8815 ':INT32) (N0-REF8816 ':INT32)
                              (PP-REF8818 ':INT32) (TAU-REF8819 ':DOUBLE)
                              (SIGMA-REF8820 ':DOUBLE) (DMIN-REF8821 ':DOUBLE)
                              (DMIN1-REF8822 ':DOUBLE) (DMIN2-REF8823 ':DOUBLE)
                              (DN-REF8824 ':DOUBLE) (DNM1-REF8825 ':DOUBLE)
                              (DNM2-REF8826 ':DOUBLE) (IEEE-REF8827 ':INT32)
                              (EPS-REF8828 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8815 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8816 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8818 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8819 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF8820 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8821 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8822 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8823 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8824 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8825 :DOUBLE) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8826 :DOUBLE) DNM2)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF8827 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS-REF8828 :DOUBLE) EPS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8817 Z))
      (%%DLASQ5 I0-REF8815 N0-REF8816 Z-REF8817 PP-REF8818 TAU-REF8819
                SIGMA-REF8820 DMIN-REF8821 DMIN1-REF8822 DMIN2-REF8823
                DN-REF8824 DNM1-REF8825 DNM2-REF8826 IEEE-REF8827
                EPS-REF8828))))

(CFFI:DEFCFUN ("dlasq6_" %%DLASQ6 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (I0 :POINTER)
  (N0 :POINTER)
  (Z :POINTER)
  (PP :POINTER)
  (DMIN :POINTER)
  (DMIN1 :POINTER)
  (DMIN2 :POINTER)
  (DN :POINTER)
  (DNM1 :POINTER)
  (DNM2 :POINTER))

(COMMON-LISP:DEFUN %DLASQ6 (I0 N0 Z PP DMIN DMIN1 DMIN2 DN DNM1 DNM2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ6)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DNM2))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF8829 ':INT32) (N0-REF8830 ':INT32)
                              (PP-REF8832 ':INT32) (DMIN-REF8833 ':DOUBLE)
                              (DMIN1-REF8834 ':DOUBLE) (DMIN2-REF8835 ':DOUBLE)
                              (DN-REF8836 ':DOUBLE) (DNM1-REF8837 ':DOUBLE)
                              (DNM2-REF8838 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF8829 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF8830 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF8832 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF8833 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF8834 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF8835 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF8836 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM1-REF8837 :DOUBLE) DNM1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DNM2-REF8838 :DOUBLE) DNM2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF8831 Z))
      (%%DLASQ6 I0-REF8829 N0-REF8830 Z-REF8831 PP-REF8832 DMIN-REF8833
                DMIN1-REF8834 DMIN2-REF8835 DN-REF8836 DNM1-REF8837
                DNM2-REF8838))))

(CFFI:DEFCFUN ("dlasr_" %%DLASR :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (SIDE :STRING)
  (PIVOT :STRING)
  (DIRECT :STRING)
  (M :POINTER)
  (N :POINTER)
  (C :POINTER)
  (S :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8842 ':INT32) (N-REF8843 ':INT32)
                              (LDA-REF8847 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8842 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8843 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8847 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF8844 C) (S-REF8845 S)
                                            (A-REF8846 A))
      (%%DLASR SIDE PIVOT DIRECT M-REF8842 N-REF8843 C-REF8844 S-REF8845
               A-REF8846 LDA-REF8847))))

(CFFI:DEFCFUN ("dlasrt_" %%DLASRT :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (ID :STRING)
  (N :POINTER)
  (D :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASRT (ID N D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASRT)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8849 ':INT32) (INFO-REF8851 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8849 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8851 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8850 D))
      (%%DLASRT ID N-REF8849 D-REF8850 INFO-REF8851))))

(CFFI:DEFCFUN ("dlassq_" %%DLASSQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (SCALE :POINTER)
  (SUMSQ :POINTER))

(COMMON-LISP:DEFUN %DLASSQ (N X INCX SCALE SUMSQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASSQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SUMSQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8852 ':INT32) (INCX-REF8854 ':INT32)
                              (SCALE-REF8855 ':DOUBLE) (SUMSQ-REF8856 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8852 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8854 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8855 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF SUMSQ-REF8856 :DOUBLE) SUMSQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8853 X))
      (%%DLASSQ N-REF8852 X-REF8853 INCX-REF8854 SCALE-REF8855 SUMSQ-REF8856))))

(CFFI:DEFCFUN ("dlasv2_" %%DLASV2 :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (F :POINTER)
  (G :POINTER)
  (H :POINTER)
  (SSMIN :POINTER)
  (SSMAX :POINTER)
  (SNR :POINTER)
  (CSR :POINTER)
  (SNL :POINTER)
  (CSL :POINTER))

(COMMON-LISP:DEFUN %DLASV2 (F G H SSMIN SSMAX SNR CSR SNL CSL)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASV2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT F)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT H)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMIN)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SSMAX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSR)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SNL)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSL))
  (CFFI:WITH-FOREIGN-OBJECTS ((F-REF8857 ':DOUBLE) (G-REF8858 ':DOUBLE)
                              (H-REF8859 ':DOUBLE) (SSMIN-REF8860 ':DOUBLE)
                              (SSMAX-REF8861 ':DOUBLE) (SNR-REF8862 ':DOUBLE)
                              (CSR-REF8863 ':DOUBLE) (SNL-REF8864 ':DOUBLE)
                              (CSL-REF8865 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF F-REF8857 :DOUBLE) F)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF8858 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF H-REF8859 :DOUBLE) H)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF8860 :DOUBLE) SSMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMAX-REF8861 :DOUBLE) SSMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNR-REF8862 :DOUBLE) SNR)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSR-REF8863 :DOUBLE) CSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNL-REF8864 :DOUBLE) SNL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSL-REF8865 :DOUBLE) CSL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLASV2 F-REF8857 G-REF8858 H-REF8859 SSMIN-REF8860 SSMAX-REF8861
                SNR-REF8862 CSR-REF8863 SNL-REF8864 CSL-REF8865))))

(CFFI:DEFCFUN ("dlaswlq_" %%DLASWLQ :LIBRARY MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (MB :POINTER)
  (NB :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (T :POINTER)
  (LDT :POINTER)
  (WORK :POINTER)
  (LWORK :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %DLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWLQ)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        WORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8866 ':INT32) (N-REF8867 ':INT32)
                              (MB-REF8868 ':INT32) (NB-REF8869 ':INT32)
                              (LDA-REF8871 ':INT32) (LDT-REF8873 ':INT32)
                              (LWORK-REF8875 ':INT32) (INFO-REF8876 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8866 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8867 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8868 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8869 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8871 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8873 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8875 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8876 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8870 A) (T-REF8872 T)
                                            (WORK-REF8874 WORK))
      (%%DLASWLQ M-REF8866 N-REF8867 MB-REF8868 NB-REF8869 A-REF8870
                 LDA-REF8871 T-REF8872 LDT-REF8873 WORK-REF8874 LWORK-REF8875
                 INFO-REF8876))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%DGBBRD %DGBBRD %%DGBCON %DGBCON %%DGBEQU %DGBEQU
  %%DGBEQUB %DGBEQUB %%DGBRFS %DGBRFS %%DGBRFSX %DGBRFSX %%DGBSV %DGBSV
  %%DGBSVX %DGBSVX %%DGBSVXX %DGBSVXX %%DGBTF2 %DGBTF2 %%DGBTRF %DGBTRF
  %%DGBTRS %DGBTRS %%DGEBAK %DGEBAK %%DGEBAL %DGEBAL %%DGEBD2 %DGEBD2 %%DGEBRD
  %DGEBRD %%DGECON %DGECON %%DGEEQU %DGEEQU %%DGEEQUB %DGEEQUB %%DGEES %DGEES
  %%DGEESX %DGEESX %%DGEEV %DGEEV %%DGEEVX %DGEEVX %%DGEHD2 %DGEHD2 %%DGEHRD
  %DGEHRD %%DGEJSV %DGEJSV %%DGELQ %DGELQ %%DGELQ2 %DGELQ2 %%DGELQF %DGELQF
  %%DGELQT %DGELQT %%DGELQT3 %DGELQT3 %%DGELS %DGELS %%DGELSD %DGELSD %%DGELSS
  %DGELSS %%DGELSY %DGELSY %%DGEMLQ %DGEMLQ %%DGEMLQT %DGEMLQT %%DGEMQR %DGEMQR
  %%DGEMQRT %DGEMQRT %%DGEQL2 %DGEQL2 %%DGEQLF %DGEQLF %%DGEQP3 %DGEQP3 %%DGEQR
  %DGEQR %%DGEQR2 %DGEQR2 %%DGEQR2P %DGEQR2P %%DGEQRF %DGEQRF %%DGEQRFP
  %DGEQRFP %%DGEQRT %DGEQRT %%DGEQRT2 %DGEQRT2 %%DGEQRT3 %DGEQRT3 %%DGERFS
  %DGERFS %%DGERFSX %DGERFSX %%DGERQ2 %DGERQ2 %%DGERQF %DGERQF %%DGESC2 %DGESC2
  %%DGESDD %DGESDD %%DGESV %DGESV %%DGESVD %DGESVD %%DGESVDQ %DGESVDQ %%DGESVDX
  %DGESVDX %%DGESVJ %DGESVJ %%DGESVX %DGESVX %%DGESVXX %DGESVXX %%DGETC2
  %DGETC2 %%DGETF2 %DGETF2 %%DGETRF %DGETRF %%DGETRF2 %DGETRF2 %%DGETRI %DGETRI
  %%DGETRS %DGETRS %%DGETSLS %DGETSLS %%DGGBAK %DGGBAK %%DGGBAL %DGGBAL %%DGGES
  %DGGES %%DGGES3 %DGGES3 %%DGGESX %DGGESX %%DGGEV %DGGEV %%DGGEV3 %DGGEV3
  %%DGGEVX %DGGEVX %%DGGGLM %DGGGLM %%DGGHD3 %DGGHD3 %%DGGHRD %DGGHRD %%DGGLSE
  %DGGLSE %%DGGQRF %DGGQRF %%DGGRQF %DGGRQF %%DGGSVD3 %DGGSVD3 %%DGGSVP3
  %DGGSVP3 %%DGSVJ0 %DGSVJ0 %%DGSVJ1 %DGSVJ1 %%DGTCON %DGTCON %%DGTRFS %DGTRFS
  %%DGTSV %DGTSV %%DGTSVX %DGTSVX %%DGTTRF %DGTTRF %%DGTTRS %DGTTRS %%DGTTS2
  %DGTTS2 %%DHGEQZ %DHGEQZ %%DHSEIN %DHSEIN %%DHSEQR %DHSEQR %%DISNAN %DISNAN
  %%DLA_GBAMV %DLA_GBAMV %%DLA_GBRCOND %DLA_GBRCOND %%DLA_GBRFSX_EXTENDED
  %DLA_GBRFSX_EXTENDED %%DLA_GBRPVGRW %DLA_GBRPVGRW %%DLA_GEAMV %DLA_GEAMV
  %%DLA_GERCOND %DLA_GERCOND %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED
  %%DLA_GERPVGRW %DLA_GERPVGRW %%DLA_LIN_BERR %DLA_LIN_BERR %%DLA_PORCOND
  %DLA_PORCOND %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED %%DLA_PORPVGRW
  %DLA_PORPVGRW %%DLA_SYAMV %DLA_SYAMV %%DLA_SYRCOND %DLA_SYRCOND
  %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED %%DLA_SYRPVGRW %DLA_SYRPVGRW
  %%DLA_WWADDW %DLA_WWADDW %%DLABAD %DLABAD %%DLABRD %DLABRD %%DLACN2 %DLACN2
  %%DLACON %DLACON %%DLACPY %DLACPY %%DLADIV %DLADIV %%DLAE2 %DLAE2 %%DLAEBZ
  %DLAEBZ %%DLAED0 %DLAED0 %%DLAED1 %DLAED1 %%DLAED2 %DLAED2 %%DLAED3 %DLAED3
  %%DLAED4 %DLAED4 %%DLAED5 %DLAED5 %%DLAED6 %DLAED6 %%DLAED7 %DLAED7 %%DLAED8
  %DLAED8 %%DLAED9 %DLAED9 %%DLAEDA %DLAEDA %%DLAEIN %DLAEIN %%DLAEV2 %DLAEV2
  %%DLAEXC %DLAEXC %%DLAG2 %DLAG2 %%DLAG2S %DLAG2S %%DLAGS2 %DLAGS2 %%DLAGTF
  %DLAGTF %%DLAGTM %DLAGTM %%DLAGTS %DLAGTS %%DLAGV2 %DLAGV2 %%DLAHQR %DLAHQR
  %%DLAHR2 %DLAHR2 %%DLAIC1 %DLAIC1 %%DLAISNAN %DLAISNAN %%DLALN2 %DLALN2
  %%DLALS0 %DLALS0 %%DLALSA %DLALSA %%DLALSD %DLALSD %%DLAMRG %DLAMRG
  %%DLAMSWLQ %DLAMSWLQ %%DLAMTSQR %DLAMTSQR %%DLANEG %DLANEG %%DLANGB %DLANGB
  %%DLANGE %DLANGE %%DLANGT %DLANGT %%DLANHS %DLANHS %%DLANSB %DLANSB %%DLANSF
  %DLANSF %%DLANSP %DLANSP %%DLANST %DLANST %%DLANSY %DLANSY %%DLANTB %DLANTB
  %%DLANTP %DLANTP %%DLANTR %DLANTR %%DLANV2 %DLANV2 %%DLAPLL %DLAPLL %%DLAPMR
  %DLAPMR %%DLAPMT %DLAPMT %%DLAPY2 %DLAPY2 %%DLAPY3 %DLAPY3 %%DLAQGB %DLAQGB
  %%DLAQGE %DLAQGE %%DLAQP2 %DLAQP2 %%DLAQPS %DLAQPS %%DLAQR0 %DLAQR0 %%DLAQR1
  %DLAQR1 %%DLAQR2 %DLAQR2 %%DLAQR3 %DLAQR3 %%DLAQR4 %DLAQR4 %%DLAQR5 %DLAQR5
  %%DLAQSB %DLAQSB %%DLAQSP %DLAQSP %%DLAQSY %DLAQSY %%DLAQTR %DLAQTR %%DLAR1V
  %DLAR1V %%DLAR2V %DLAR2V %%DLARF %DLARF %%DLARFB %DLARFB %%DLARFG %DLARFG
  %%DLARFGP %DLARFGP %%DLARFT %DLARFT %%DLARFX %DLARFX %%DLARFY %DLARFY
  %%DLARGV %DLARGV %%DLARNV %DLARNV %%DLARRA %DLARRA %%DLARRB %DLARRB %%DLARRC
  %DLARRC %%DLARRD %DLARRD %%DLARRE %DLARRE %%DLARRF %DLARRF %%DLARRJ %DLARRJ
  %%DLARRK %DLARRK %%DLARRR %DLARRR %%DLARRV %DLARRV %%DLARSCL2 %DLARSCL2
  %%DLARTG %DLARTG %%DLARTGP %DLARTGP %%DLARTGS %DLARTGS %%DLARTV %DLARTV
  %%DLARUV %DLARUV %%DLARZ %DLARZ %%DLARZB %DLARZB %%DLARZT %DLARZT %%DLAS2
  %DLAS2 %%DLASCL %DLASCL %%DLASCL2 %DLASCL2 %%DLASD0 %DLASD0 %%DLASD1 %DLASD1
  %%DLASD2 %DLASD2 %%DLASD3 %DLASD3 %%DLASD4 %DLASD4 %%DLASD5 %DLASD5 %%DLASD6
  %DLASD6 %%DLASD7 %DLASD7 %%DLASD8 %DLASD8 %%DLASDA %DLASDA %%DLASDQ %DLASDQ
  %%DLASDT %DLASDT %%DLASET %DLASET %%DLASQ1 %DLASQ1 %%DLASQ2 %DLASQ2 %%DLASQ3
  %DLASQ3 %%DLASQ4 %DLASQ4 %%DLASQ5 %DLASQ5 %%DLASQ6 %DLASQ6 %%DLASR %DLASR
  %%DLASRT %DLASRT %%DLASSQ %DLASSQ %%DLASV2 %DLASV2 %%DLASWLQ %DLASWLQ))

(COMMON-LISP:SETF (COMMON-LISP:GETF
                   (COMMON-LISP:SYMBOL-PLIST
                    'MAGICL.FOREIGN-LIBRARIES:LIBLAPACK)
                   ':MAGICL)
                    '(("DGBBRD" "dgbbrd_" %%DGBBRD %DGBBRD)
                      ("DGBCON" "dgbcon_" %%DGBCON %DGBCON)
                      ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU)
                      ("DGBEQUB" "dgbequb_" %%DGBEQUB %DGBEQUB)
                      ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS)
                      ("DGBRFSX" "dgbrfsx_" %%DGBRFSX %DGBRFSX)
                      ("DGBSV" "dgbsv_" %%DGBSV %DGBSV)
                      ("DGBSVX" "dgbsvx_" %%DGBSVX %DGBSVX)
                      ("DGBSVXX" "dgbsvxx_" %%DGBSVXX %DGBSVXX)
                      ("DGBTF2" "dgbtf2_" %%DGBTF2 %DGBTF2)
                      ("DGBTRF" "dgbtrf_" %%DGBTRF %DGBTRF)
                      ("DGBTRS" "dgbtrs_" %%DGBTRS %DGBTRS)
                      ("DGEBAK" "dgebak_" %%DGEBAK %DGEBAK)
                      ("DGEBAL" "dgebal_" %%DGEBAL %DGEBAL)
                      ("DGEBD2" "dgebd2_" %%DGEBD2 %DGEBD2)
                      ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD)
                      ("DGECON" "dgecon_" %%DGECON %DGECON)
                      ("DGEEQU" "dgeequ_" %%DGEEQU %DGEEQU)
                      ("DGEEQUB" "dgeequb_" %%DGEEQUB %DGEEQUB)
                      ("DGEES" "dgees_" %%DGEES %DGEES)
                      ("DGEESX" "dgeesx_" %%DGEESX %DGEESX)
                      ("DGEEV" "dgeev_" %%DGEEV %DGEEV)
                      ("DGEEVX" "dgeevx_" %%DGEEVX %DGEEVX)
                      ("DGEHD2" "dgehd2_" %%DGEHD2 %DGEHD2)
                      ("DGEHRD" "dgehrd_" %%DGEHRD %DGEHRD)
                      ("DGEJSV" "dgejsv_" %%DGEJSV %DGEJSV)
                      ("DGELQ" "dgelq_" %%DGELQ %DGELQ)
                      ("DGELQ2" "dgelq2_" %%DGELQ2 %DGELQ2)
                      ("DGELQF" "dgelqf_" %%DGELQF %DGELQF)
                      ("DGELQT" "dgelqt_" %%DGELQT %DGELQT)
                      ("DGELQT3" "dgelqt3_" %%DGELQT3 %DGELQT3)
                      ("DGELS" "dgels_" %%DGELS %DGELS)
                      ("DGELSD" "dgelsd_" %%DGELSD %DGELSD)
                      ("DGELSS" "dgelss_" %%DGELSS %DGELSS)
                      ("DGELSY" "dgelsy_" %%DGELSY %DGELSY)
                      ("DGEMLQ" "dgemlq_" %%DGEMLQ %DGEMLQ)
                      ("DGEMLQT" "dgemlqt_" %%DGEMLQT %DGEMLQT)
                      ("DGEMQR" "dgemqr_" %%DGEMQR %DGEMQR)
                      ("DGEMQRT" "dgemqrt_" %%DGEMQRT %DGEMQRT)
                      ("DGEQL2" "dgeql2_" %%DGEQL2 %DGEQL2)
                      ("DGEQLF" "dgeqlf_" %%DGEQLF %DGEQLF)
                      ("DGEQP3" "dgeqp3_" %%DGEQP3 %DGEQP3)
                      ("DGEQR" "dgeqr_" %%DGEQR %DGEQR)
                      ("DGEQR2" "dgeqr2_" %%DGEQR2 %DGEQR2)
                      ("DGEQR2P" "dgeqr2p_" %%DGEQR2P %DGEQR2P)
                      ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF)
                      ("DGEQRFP" "dgeqrfp_" %%DGEQRFP %DGEQRFP)
                      ("DGEQRT" "dgeqrt_" %%DGEQRT %DGEQRT)
                      ("DGEQRT2" "dgeqrt2_" %%DGEQRT2 %DGEQRT2)
                      ("DGEQRT3" "dgeqrt3_" %%DGEQRT3 %DGEQRT3)
                      ("DGERFS" "dgerfs_" %%DGERFS %DGERFS)
                      ("DGERFSX" "dgerfsx_" %%DGERFSX %DGERFSX)
                      ("DGERQ2" "dgerq2_" %%DGERQ2 %DGERQ2)
                      ("DGERQF" "dgerqf_" %%DGERQF %DGERQF)
                      ("DGESC2" "dgesc2_" %%DGESC2 %DGESC2)
                      ("DGESDD" "dgesdd_" %%DGESDD %DGESDD)
                      ("DGESV" "dgesv_" %%DGESV %DGESV)
                      ("DGESVD" "dgesvd_" %%DGESVD %DGESVD)
                      ("DGESVDQ" "dgesvdq_" %%DGESVDQ %DGESVDQ)
                      ("DGESVDX" "dgesvdx_" %%DGESVDX %DGESVDX)
                      ("DGESVJ" "dgesvj_" %%DGESVJ %DGESVJ)
                      ("DGESVX" "dgesvx_" %%DGESVX %DGESVX)
                      ("DGESVXX" "dgesvxx_" %%DGESVXX %DGESVXX)
                      ("DGETC2" "dgetc2_" %%DGETC2 %DGETC2)
                      ("DGETF2" "dgetf2_" %%DGETF2 %DGETF2)
                      ("DGETRF" "dgetrf_" %%DGETRF %DGETRF)
                      ("DGETRF2" "dgetrf2_" %%DGETRF2 %DGETRF2)
                      ("DGETRI" "dgetri_" %%DGETRI %DGETRI)
                      ("DGETRS" "dgetrs_" %%DGETRS %DGETRS)
                      ("DGETSLS" "dgetsls_" %%DGETSLS %DGETSLS)
                      ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK)
                      ("DGGBAL" "dggbal_" %%DGGBAL %DGGBAL)
                      ("DGGES" "dgges_" %%DGGES %DGGES)
                      ("DGGES3" "dgges3_" %%DGGES3 %DGGES3)
                      ("DGGESX" "dggesx_" %%DGGESX %DGGESX)
                      ("DGGEV" "dggev_" %%DGGEV %DGGEV)
                      ("DGGEV3" "dggev3_" %%DGGEV3 %DGGEV3)
                      ("DGGEVX" "dggevx_" %%DGGEVX %DGGEVX)
                      ("DGGGLM" "dggglm_" %%DGGGLM %DGGGLM)
                      ("DGGHD3" "dgghd3_" %%DGGHD3 %DGGHD3)
                      ("DGGHRD" "dgghrd_" %%DGGHRD %DGGHRD)
                      ("DGGLSE" "dgglse_" %%DGGLSE %DGGLSE)
                      ("DGGQRF" "dggqrf_" %%DGGQRF %DGGQRF)
                      ("DGGRQF" "dggrqf_" %%DGGRQF %DGGRQF)
                      ("DGGSVD3" "dggsvd3_" %%DGGSVD3 %DGGSVD3)
                      ("DGGSVP3" "dggsvp3_" %%DGGSVP3 %DGGSVP3)
                      ("DGSVJ0" "dgsvj0_" %%DGSVJ0 %DGSVJ0)
                      ("DGSVJ1" "dgsvj1_" %%DGSVJ1 %DGSVJ1)
                      ("DGTCON" "dgtcon_" %%DGTCON %DGTCON)
                      ("DGTRFS" "dgtrfs_" %%DGTRFS %DGTRFS)
                      ("DGTSV" "dgtsv_" %%DGTSV %DGTSV)
                      ("DGTSVX" "dgtsvx_" %%DGTSVX %DGTSVX)
                      ("DGTTRF" "dgttrf_" %%DGTTRF %DGTTRF)
                      ("DGTTRS" "dgttrs_" %%DGTTRS %DGTTRS)
                      ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2)
                      ("DHGEQZ" "dhgeqz_" %%DHGEQZ %DHGEQZ)
                      ("DHSEIN" "dhsein_" %%DHSEIN %DHSEIN)
                      ("DHSEQR" "dhseqr_" %%DHSEQR %DHSEQR)
                      ("DISNAN" "disnan_" %%DISNAN %DISNAN)
                      ("DLA_GBAMV" "dla_gbamv_" %%DLA_GBAMV %DLA_GBAMV)
                      ("DLA_GBRCOND" "dla_gbrcond_" %%DLA_GBRCOND %DLA_GBRCOND)
                      ("DLA_GBRFSX_EXTENDED" "dla_gbrfsx_extended_"
                       %%DLA_GBRFSX_EXTENDED %DLA_GBRFSX_EXTENDED)
                      ("DLA_GBRPVGRW" "dla_gbrpvgrw_" %%DLA_GBRPVGRW
                       %DLA_GBRPVGRW)
                      ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV %DLA_GEAMV)
                      ("DLA_GERCOND" "dla_gercond_" %%DLA_GERCOND %DLA_GERCOND)
                      ("DLA_GERFSX_EXTENDED" "dla_gerfsx_extended_"
                       %%DLA_GERFSX_EXTENDED %DLA_GERFSX_EXTENDED)
                      ("DLA_GERPVGRW" "dla_gerpvgrw_" %%DLA_GERPVGRW
                       %DLA_GERPVGRW)
                      ("DLA_LIN_BERR" "dla_lin_berr_" %%DLA_LIN_BERR
                       %DLA_LIN_BERR)
                      ("DLA_PORCOND" "dla_porcond_" %%DLA_PORCOND %DLA_PORCOND)
                      ("DLA_PORFSX_EXTENDED" "dla_porfsx_extended_"
                       %%DLA_PORFSX_EXTENDED %DLA_PORFSX_EXTENDED)
                      ("DLA_PORPVGRW" "dla_porpvgrw_" %%DLA_PORPVGRW
                       %DLA_PORPVGRW)
                      ("DLA_SYAMV" "dla_syamv_" %%DLA_SYAMV %DLA_SYAMV)
                      ("DLA_SYRCOND" "dla_syrcond_" %%DLA_SYRCOND %DLA_SYRCOND)
                      ("DLA_SYRFSX_EXTENDED" "dla_syrfsx_extended_"
                       %%DLA_SYRFSX_EXTENDED %DLA_SYRFSX_EXTENDED)
                      ("DLA_SYRPVGRW" "dla_syrpvgrw_" %%DLA_SYRPVGRW
                       %DLA_SYRPVGRW)
                      ("DLA_WWADDW" "dla_wwaddw_" %%DLA_WWADDW %DLA_WWADDW)
                      ("DLABAD" "dlabad_" %%DLABAD %DLABAD)
                      ("DLABRD" "dlabrd_" %%DLABRD %DLABRD)
                      ("DLACN2" "dlacn2_" %%DLACN2 %DLACN2)
                      ("DLACON" "dlacon_" %%DLACON %DLACON)
                      ("DLACPY" "dlacpy_" %%DLACPY %DLACPY)
                      ("DLADIV" "dladiv_" %%DLADIV %DLADIV)
                      ("DLAE2" "dlae2_" %%DLAE2 %DLAE2)
                      ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ)
                      ("DLAED0" "dlaed0_" %%DLAED0 %DLAED0)
                      ("DLAED1" "dlaed1_" %%DLAED1 %DLAED1)
                      ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2)
                      ("DLAED3" "dlaed3_" %%DLAED3 %DLAED3)
                      ("DLAED4" "dlaed4_" %%DLAED4 %DLAED4)
                      ("DLAED5" "dlaed5_" %%DLAED5 %DLAED5)
                      ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6)
                      ("DLAED7" "dlaed7_" %%DLAED7 %DLAED7)
                      ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8)
                      ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9)
                      ("DLAEDA" "dlaeda_" %%DLAEDA %DLAEDA)
                      ("DLAEIN" "dlaein_" %%DLAEIN %DLAEIN)
                      ("DLAEV2" "dlaev2_" %%DLAEV2 %DLAEV2)
                      ("DLAEXC" "dlaexc_" %%DLAEXC %DLAEXC)
                      ("DLAG2" "dlag2_" %%DLAG2 %DLAG2)
                      ("DLAG2S" "dlag2s_" %%DLAG2S %DLAG2S)
                      ("DLAGS2" "dlags2_" %%DLAGS2 %DLAGS2)
                      ("DLAGTF" "dlagtf_" %%DLAGTF %DLAGTF)
                      ("DLAGTM" "dlagtm_" %%DLAGTM %DLAGTM)
                      ("DLAGTS" "dlagts_" %%DLAGTS %DLAGTS)
                      ("DLAGV2" "dlagv2_" %%DLAGV2 %DLAGV2)
                      ("DLAHQR" "dlahqr_" %%DLAHQR %DLAHQR)
                      ("DLAHR2" "dlahr2_" %%DLAHR2 %DLAHR2)
                      ("DLAIC1" "dlaic1_" %%DLAIC1 %DLAIC1)
                      ("DLAISNAN" "dlaisnan_" %%DLAISNAN %DLAISNAN)
                      ("DLALN2" "dlaln2_" %%DLALN2 %DLALN2)
                      ("DLALS0" "dlals0_" %%DLALS0 %DLALS0)
                      ("DLALSA" "dlalsa_" %%DLALSA %DLALSA)
                      ("DLALSD" "dlalsd_" %%DLALSD %DLALSD)
                      ("DLAMRG" "dlamrg_" %%DLAMRG %DLAMRG)
                      ("DLAMSWLQ" "dlamswlq_" %%DLAMSWLQ %DLAMSWLQ)
                      ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR %DLAMTSQR)
                      ("DLANEG" "dlaneg_" %%DLANEG %DLANEG)
                      ("DLANGB" "dlangb_" %%DLANGB %DLANGB)
                      ("DLANGE" "dlange_" %%DLANGE %DLANGE)
                      ("DLANGT" "dlangt_" %%DLANGT %DLANGT)
                      ("DLANHS" "dlanhs_" %%DLANHS %DLANHS)
                      ("DLANSB" "dlansb_" %%DLANSB %DLANSB)
                      ("DLANSF" "dlansf_" %%DLANSF %DLANSF)
                      ("DLANSP" "dlansp_" %%DLANSP %DLANSP)
                      ("DLANST" "dlanst_" %%DLANST %DLANST)
                      ("DLANSY" "dlansy_" %%DLANSY %DLANSY)
                      ("DLANTB" "dlantb_" %%DLANTB %DLANTB)
                      ("DLANTP" "dlantp_" %%DLANTP %DLANTP)
                      ("DLANTR" "dlantr_" %%DLANTR %DLANTR)
                      ("DLANV2" "dlanv2_" %%DLANV2 %DLANV2)
                      ("DLAPLL" "dlapll_" %%DLAPLL %DLAPLL)
                      ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR)
                      ("DLAPMT" "dlapmt_" %%DLAPMT %DLAPMT)
                      ("DLAPY2" "dlapy2_" %%DLAPY2 %DLAPY2)
                      ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3)
                      ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB)
                      ("DLAQGE" "dlaqge_" %%DLAQGE %DLAQGE)
                      ("DLAQP2" "dlaqp2_" %%DLAQP2 %DLAQP2)
                      ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS)
                      ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0)
                      ("DLAQR1" "dlaqr1_" %%DLAQR1 %DLAQR1)
                      ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2)
                      ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3)
                      ("DLAQR4" "dlaqr4_" %%DLAQR4 %DLAQR4)
                      ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5)
                      ("DLAQSB" "dlaqsb_" %%DLAQSB %DLAQSB)
                      ("DLAQSP" "dlaqsp_" %%DLAQSP %DLAQSP)
                      ("DLAQSY" "dlaqsy_" %%DLAQSY %DLAQSY)
                      ("DLAQTR" "dlaqtr_" %%DLAQTR %DLAQTR)
                      ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V)
                      ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V)
                      ("DLARF" "dlarf_" %%DLARF %DLARF)
                      ("DLARFB" "dlarfb_" %%DLARFB %DLARFB)
                      ("DLARFG" "dlarfg_" %%DLARFG %DLARFG)
                      ("DLARFGP" "dlarfgp_" %%DLARFGP %DLARFGP)
                      ("DLARFT" "dlarft_" %%DLARFT %DLARFT)
                      ("DLARFX" "dlarfx_" %%DLARFX %DLARFX)
                      ("DLARFY" "dlarfy_" %%DLARFY %DLARFY)
                      ("DLARGV" "dlargv_" %%DLARGV %DLARGV)
                      ("DLARNV" "dlarnv_" %%DLARNV %DLARNV)
                      ("DLARRA" "dlarra_" %%DLARRA %DLARRA)
                      ("DLARRB" "dlarrb_" %%DLARRB %DLARRB)
                      ("DLARRC" "dlarrc_" %%DLARRC %DLARRC)
                      ("DLARRD" "dlarrd_" %%DLARRD %DLARRD)
                      ("DLARRE" "dlarre_" %%DLARRE %DLARRE)
                      ("DLARRF" "dlarrf_" %%DLARRF %DLARRF)
                      ("DLARRJ" "dlarrj_" %%DLARRJ %DLARRJ)
                      ("DLARRK" "dlarrk_" %%DLARRK %DLARRK)
                      ("DLARRR" "dlarrr_" %%DLARRR %DLARRR)
                      ("DLARRV" "dlarrv_" %%DLARRV %DLARRV)
                      ("DLARSCL2" "dlarscl2_" %%DLARSCL2 %DLARSCL2)
                      ("DLARTG" "dlartg_" %%DLARTG %DLARTG)
                      ("DLARTGP" "dlartgp_" %%DLARTGP %DLARTGP)
                      ("DLARTGS" "dlartgs_" %%DLARTGS %DLARTGS)
                      ("DLARTV" "dlartv_" %%DLARTV %DLARTV)
                      ("DLARUV" "dlaruv_" %%DLARUV %DLARUV)
                      ("DLARZ" "dlarz_" %%DLARZ %DLARZ)
                      ("DLARZB" "dlarzb_" %%DLARZB %DLARZB)
                      ("DLARZT" "dlarzt_" %%DLARZT %DLARZT)
                      ("DLAS2" "dlas2_" %%DLAS2 %DLAS2)
                      ("DLASCL" "dlascl_" %%DLASCL %DLASCL)
                      ("DLASCL2" "dlascl2_" %%DLASCL2 %DLASCL2)
                      ("DLASD0" "dlasd0_" %%DLASD0 %DLASD0)
                      ("DLASD1" "dlasd1_" %%DLASD1 %DLASD1)
                      ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2)
                      ("DLASD3" "dlasd3_" %%DLASD3 %DLASD3)
                      ("DLASD4" "dlasd4_" %%DLASD4 %DLASD4)
                      ("DLASD5" "dlasd5_" %%DLASD5 %DLASD5)
                      ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6)
                      ("DLASD7" "dlasd7_" %%DLASD7 %DLASD7)
                      ("DLASD8" "dlasd8_" %%DLASD8 %DLASD8)
                      ("DLASDA" "dlasda_" %%DLASDA %DLASDA)
                      ("DLASDQ" "dlasdq_" %%DLASDQ %DLASDQ)
                      ("DLASDT" "dlasdt_" %%DLASDT %DLASDT)
                      ("DLASET" "dlaset_" %%DLASET %DLASET)
                      ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1)
                      ("DLASQ2" "dlasq2_" %%DLASQ2 %DLASQ2)
                      ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3)
                      ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4)
                      ("DLASQ5" "dlasq5_" %%DLASQ5 %DLASQ5)
                      ("DLASQ6" "dlasq6_" %%DLASQ6 %DLASQ6)
                      ("DLASR" "dlasr_" %%DLASR %DLASR)
                      ("DLASRT" "dlasrt_" %%DLASRT %DLASRT)
                      ("DLASSQ" "dlassq_" %%DLASSQ %DLASSQ)
                      ("DLASV2" "dlasv2_" %%DLASV2 %DLASV2)
                      ("DLASWLQ" "dlaswlq_" %%DLASWLQ %DLASWLQ)))

(COMMON-LISP:EXPORT
 '(%DGBBRD %DGBCON %DGBEQU %DGBEQUB %DGBRFS %DGBRFSX %DGBSV %DGBSVX %DGBSVXX
           %DGBTF2 %DGBTRF %DGBTRS %DGEBAK %DGEBAL %DGEBD2 %DGEBRD %DGECON
           %DGEEQU %DGEEQUB %DGEES %DGEESX %DGEEV %DGEEVX %DGEHD2 %DGEHRD
           %DGEJSV %DGELQ %DGELQ2 %DGELQF %DGELQT %DGELQT3 %DGELS %DGELSD
           %DGELSS %DGELSY %DGEMLQ %DGEMLQT %DGEMQR %DGEMQRT %DGEQL2 %DGEQLF
           %DGEQP3 %DGEQR %DGEQR2 %DGEQR2P %DGEQRF %DGEQRFP %DGEQRT %DGEQRT2
           %DGEQRT3 %DGERFS %DGERFSX %DGERQ2 %DGERQF %DGESC2 %DGESDD %DGESV
           %DGESVD %DGESVDQ %DGESVDX %DGESVJ %DGESVX %DGESVXX %DGETC2 %DGETF2
           %DGETRF %DGETRF2 %DGETRI %DGETRS %DGETSLS %DGGBAK %DGGBAL %DGGES
           %DGGES3 %DGGESX %DGGEV %DGGEV3 %DGGEVX %DGGGLM %DGGHD3 %DGGHRD
           %DGGLSE %DGGQRF %DGGRQF %DGGSVD3 %DGGSVP3 %DGSVJ0 %DGSVJ1 %DGTCON
           %DGTRFS %DGTSV %DGTSVX %DGTTRF %DGTTRS %DGTTS2 %DHGEQZ %DHSEIN
           %DHSEQR %DISNAN %DLA_GBAMV %DLA_GBRCOND %DLA_GBRFSX_EXTENDED
           %DLA_GBRPVGRW %DLA_GEAMV %DLA_GERCOND %DLA_GERFSX_EXTENDED
           %DLA_GERPVGRW %DLA_LIN_BERR %DLA_PORCOND %DLA_PORFSX_EXTENDED
           %DLA_PORPVGRW %DLA_SYAMV %DLA_SYRCOND %DLA_SYRFSX_EXTENDED
           %DLA_SYRPVGRW %DLA_WWADDW %DLABAD %DLABRD %DLACN2 %DLACON %DLACPY
           %DLADIV %DLAE2 %DLAEBZ %DLAED0 %DLAED1 %DLAED2 %DLAED3 %DLAED4
           %DLAED5 %DLAED6 %DLAED7 %DLAED8 %DLAED9 %DLAEDA %DLAEIN %DLAEV2
           %DLAEXC %DLAG2 %DLAG2S %DLAGS2 %DLAGTF %DLAGTM %DLAGTS %DLAGV2
           %DLAHQR %DLAHR2 %DLAIC1 %DLAISNAN %DLALN2 %DLALS0 %DLALSA %DLALSD
           %DLAMRG %DLAMSWLQ %DLAMTSQR %DLANEG %DLANGB %DLANGE %DLANGT %DLANHS
           %DLANSB %DLANSF %DLANSP %DLANST %DLANSY %DLANTB %DLANTP %DLANTR
           %DLANV2 %DLAPLL %DLAPMR %DLAPMT %DLAPY2 %DLAPY3 %DLAQGB %DLAQGE
           %DLAQP2 %DLAQPS %DLAQR0 %DLAQR1 %DLAQR2 %DLAQR3 %DLAQR4 %DLAQR5
           %DLAQSB %DLAQSP %DLAQSY %DLAQTR %DLAR1V %DLAR2V %DLARF %DLARFB
           %DLARFG %DLARFGP %DLARFT %DLARFX %DLARFY %DLARGV %DLARNV %DLARRA
           %DLARRB %DLARRC %DLARRD %DLARRE %DLARRF %DLARRJ %DLARRK %DLARRR
           %DLARRV %DLARSCL2 %DLARTG %DLARTGP %DLARTGS %DLARTV %DLARUV %DLARZ
           %DLARZB %DLARZT %DLAS2 %DLASCL %DLASCL2 %DLASD0 %DLASD1 %DLASD2
           %DLASD3 %DLASD4 %DLASD5 %DLASD6 %DLASD7 %DLASD8 %DLASDA %DLASDQ
           %DLASDT %DLASET %DLASQ1 %DLASQ2 %DLASQ3 %DLASQ4 %DLASQ5 %DLASQ6
           %DLASR %DLASRT %DLASSQ %DLASV2 %DLASWLQ)
 '#:MAGICL.LAPACK-CFFI)

;;; End of file.
